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Avant-propos 


Programmer avec les ordinateurs AMSTRAD (CPC 464, CPC 664 
et CPC 6128) est à la fois facile et passionnant. Les auteurs de ce 
recueil se sont laissés séduire et ils espèrent faire partager leur 
plaisir aux lecteurs. 


La plupart des programmes sont écrits en BASIC. Pour vous 
encourager à utiliser l’Assembleur, plus performant mais plus 
difficile, nous avons développé dans ce langage un magnifique 
Spaces Invaders (classique des jeux d’arcade), accompagné de 
nombreux commentaires qui vous permettront de mieux com- 
prendre pour aller plus loin et plus vite ! 


Des jeux, des logiciels de création graphique et sonore, des 
utilitaires de programmation, nous espérons bien en avoir fait pour 
tous les goûts. 


Merci à Antoine Mahieu, ingénieur E.F.R.E.I., pour ses idées et 
ses conseils. 


Chapitre 1 
Jeux 





La puce dans le labyrinthe 


Avec ce programme, vous allez vous transformer en une gentille 
petite puce qui aura la lourde tâche d’aller le plus vite possible en 
évitant de se cogner aux murs. Trois labyrinthes sont à votre 
disposition selon votre adresse ; mais il vous est tout à fait possible 
de créer les vôtres. 


La direction de la puce sera assurée par les touches de fonction 
(voir le schéma). Deux compteurs sont prévus en haut de l’écran, 
un pour le temps en pseudo-secondes et l’autre pour les mètres 
parcourus. Bonne route, et merci Amstrapuce ! 


40 MODE 1:NERRC=S 

50 LOCATE 10,5: FRINT XX MOCHE OK AO AOKOKOK KE OK KE M HONOK OK EIOEEE KE" 
51 LOCATE 10,6: FRINT'"X LA FUCE DANS LE LABYRINTHE x" 
52 LOCATE 10,7: FRINT EX XOK HO HO HOMO KO OO KOK KR IOROKONCKIOKKOK KE 
60 LOCATE 5,13:INFUT" QUEL CIRCUIT DESIRES TU F",CIKR 

70 IF CIR «#1 OR CIR:NERC THEN 60 

80 ON CIR GOTO 81,82,83 

91 RESTORE 10000:GO0OT0 90 

82 RESTORE 20000:G60T0 90 

83 RESTORE 20900 


90 X=20:Y=Z:A=Z: GOSUE 2000 


110 FOR I1=1 TO 24 

120 READ AS:FRINT 4%; 

130 NEXT 

140 LOCATE 1,1:FRINT " TEMPS: METRES : 
150 GOSUR 5060 

399 * 


400 





405 * 
410 LOCATE X,Y:FRINT'X":; 
420 IF INKEY#="" THEN 420 ELSE 530 


499 * 
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S00 esesmemcmes EST CLAVIER seen eine nee memes 





310 TEMPS=TEMFS+1: LOCATE 12,1:FRINT TEMPS: : LOCATE Zé,i: 
FRINT EMs2IF TEMPFS=S00 THEN 1000 

920 ASSINEEYS:IF A$="" THEN 610 ELSE EB=VAL({AS#) 

921 IF KH=8 THEN A=1:GOTO 5306 

S22 IF KH=9 THEN 4=2:G0T0 570 

S23 IF Hzé THEN A=3:GOTO 550 

Se IF Ex5 THEN A=4:GO0T0 550 

325 IF He? THEN 425: G0OT0O 550 

dé IF El THEN Â=6:GOTO 550 

SE7 IF Er4 THEN 4=7:GO0T0 5230 

S<e9 IF EK=7 THEN À=8:GO0OTO0 550 

JO FX=-1Xx (AZ) 14 (AZT) -1X (A4) +14 (A6) +1X (A7) +1X (A=G) 


940 FY=-1X (A=4)-1X (A=5) —1X (A=6) +1X (A=B) +1X (A=1) +1%X (AZ) 


599 © 
600 enenmecmecx TESTS ET AFFICHAGE ==szzzzezemesemenemensezs 
605 


610 LOCATE X,Y:FRINT'" "ss X=X4+FX: Y=Y+PY:LOCATE X,Y 


620 2Z#=COFYCHRS (HOD2IF 225" THEN Z=ASC(Z#) 


628 IF Z£532 THEN X=X-FX:Y=Y-FY ELSE EM=EM+1 





620 LOCATE X,Y:FRINT "X'"5:GO0TO 500 


999 * 





1000 ‘esesememes FIN DU FARCOURS 2eme nee mm 
1005 


1010 CLS: FRINT "VOUS AVEZ FARCOURU "3EM; 
" METRES EN 5006 SECONDES" 


1020 END 


1999 


11 


2000 


2005 


2040 


2050 


2060 


2070 


2999 


F000 


5005 


5010 


3020 





5040 


5050 
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Fanausesesz REDEFINITION DES CARACTERES ==sssememssess 

SYMEOL AFTER 49 

SYMBOL 49,8X10101010,2X1010101,8X10101010,8X1010101, 
&X10101010,8X1010101,%X10101010,8&X1010101 

SYMEOL 50,8% &X10100000, 
&X1010000,%X10101000,8&X1010100,%X1G101010 

SYMBOL S1,8X10101010,8X1010101,2X101010,8X10101, 


SYMEOL 


SYMEOL 


RETURN 


SYMEOL 


SYMEOL 


SYMEQOL 


SYMEOL 


SYMEOL 


RETURN 






= 
D: 





4 


= 
J 


œ 
re 


= 
eJ 


S 


UX1010,LX101,%X10,%X1 


SX1010000, 
s&XO 


TAXI, RXIO,LXIOU1,8X1010, 


LX10101,8X101010,8X1010101,8%X10101010 





RETOUR AUX CARACTERES NORMAUX 





74 %X11000 
&X11000 






&X111000,8X11000,%X11000, 
.&XL1000,8X1111110, %XO 


OLWX111100,%X1100110,8X110,8X111100, 
LX1100000,8&X1100110,8%X1111110,%X0 


1,LX111100,8X1000110,8X110,8X11100, 
LX11O,LXLLOOL10,8X111100,8X0 








2, 4X11000,8X111000 & 


%X11111110,&X1106 


UX1011000 X10011000, 
D, &X111100,8X0 








Fa MX1111110,8%X1100010,8X1100000,8X111100, 
LX110, LX11D0110,8X111100,%X0 


10000 
10005 
10010 
10020 
10050 
10040 
10050 
100460 
10070 
10080 
10090 
10106 
LO110 
10120 
10150 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10270 
10240 


19999 


1] 


DATA"1111111111111111111111111111111111111111" 
DATA"111114 311111" 
DATA'"11114 31111" 
DATA"1114 S111111111111111111111111112 Z111" 
DATA"114 S1i1111111111111111111111111112 11" 
DATA"14 S1111111111111111111111111111112 1" 
DATA"1 11111111111111111111111111111111 1" 
DATA"1 11111111111111111111111111111111 1" 
DATA"1I 11111111111111111111111111111111 L> 
DATA" 11111111111111111111111111111111 L” 
DATA"1 11111111111111111111111111111111 1" 
DATA"1 1i111111111111111111111111111111 1" 
DATA" 11111111111111111111111111111111 1" 
DATA"I 11111111111111111111111111111111 1" 
DATA"I 11111111111111111111111111111111 1" 
DATA" 11111111111111111111111111111111 1" 
DATA" 11111111111111111111111111111111 1" 
DATA"I 11111111111111111111111111111111 L" 
DATA"12 Z1111111111111111111111111111114 Si" 
DATA"112 %11111111111111111111111111114 S11" 
DATA"1112? %111111111111111111111111114 S111" 
DATA"1111% 51111" 
DATA"11111% 511111" 


DATA"1111111111111111111111111111111111111111" 
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20000 =====s2sis CIRCUIT ? ======22-2--2---=--2-----2-2=- 
20005 * 

20010 DATA"1111111111111111111111111111111111111111" 
20020 DATA"111114 311114 311111" 
20030 DATA"11114 3111 31111" 
20040 DATA"1114 5112 111 11111111111111112 3111" 
20050 DATA"114 51111 111 111111111111111112 311" 
20060 DATA"14 511114 5111 1111111111111111112 31" 
20070 DATA"1 11111 11112 %111111111111111111 1" 
20080 DATA"1 11114 11111 Z11111111111111111 41 
20090 DATA"1 1111 11111 11111111111111111 1" 
20100 DATA"1 11112 1114 S11111111111111111 1" 
20110 DATA"1 111117 Si11111111111111111 1" 


20120 DATA"1 11111111111111111111111111111111 12 


20130 DATA"1I 11111111111111111111111111111111 1" 
20140 DATA"1 11111111111111111111111111111114 S1" 


20150 DATA"1 1111111111111111111111111111114 S11" 


x 


20160 DATA"1 ‘ 111111111111111111111111111111 S111" 
20170 DATA"1I 111111111111111111111111111111 1111" 
20180 DATA"1 111111111111111111111111111111 1111" 
20190 DATA"12 Z311111111111111111111111111111 1111" 
20200 DATA"112 31111111111111111111111111111 1111" 
20210 DATA"1112 Z3111111111111111111111111111 1111" 
20220 DATA"11112 Z11111111111111111111114 S1111" 
202350 DATA'"111112? S111111" 
20240 DATA"1111111111111111111111111111111111111111" 


29999 * 
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30000 


30005 


30010 


50020 


50050 


530040 


350050 


T0060 


30070 


30080 


50090 


50100 


30110 


30120 


30170 


30140 


30150 


30160 


350170 


30180 


30190 


30200 








30240 


esemscmess CIRCUIT 3 === 


DATA"1111111111111111111111111111111111111111" 


DATA"111114 311114 311111111111" 
DATA"11114 3114 1111111172 331111111111" 
DATA"1114 S112 31 1111111117 Z111" 


DATA"114 Siiii 1 1  11111111111111112 Z11" 
DATA"14 511114 1 1 1 111111111111111112 1" 
DATA"1 11111 1 12 311111111111111111 1" 
DATA"1 11114 11111 %1111111111111111 LE" 
DATA"1 11ii 111111 1111111111111111 ds" 
DATA"1 11112 311114 S1111111111111111 1" 
DATA"1 111112 54 311111111111 1" 
DATA"1 111111111111114 S2 Z1111111111 1" 
DATA"1 11111111111114 S11 1111111111 1" 
DATA"1 1111111111114 S111 1111111114 S1" 
DATA"I 111111111114 S1111 111111114 S11" 
DATA"1 111111111114 S11111 11111114 S111" 
DATA"1 1111111114 S111111 1111114 1111" 
DATA"1 1111111114 S1111111 111114 3111" 


DATA"12 31111114 Si1111111 11114 52 111" 


DATA"112 311114 S1111111112 51 S111" 
DATA"1118 3114  S11111111111€ S11 11111" 
DATA"11117 34 stlitiitiitiiiitiii4 11111" 
DATA"111117 Si11111" 


DATA"1111111111111111111111111111111111111111" 
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Déroulement du jeu 


Le jeu commence par vous demander le labyrinthe désiré. A cette 
question, répondez par 1, 2 ou 3 suivant votre lucidité. Bien sûr, si 
vous rajoutez des labyrinthes, n’oubliez pas de modifier le pointeur 
(voir plus loin pour la modification). Après avoir validé votre 
choix, vos yeux ébahis pourront découvrir le circuit. La puce est 
stationnée en haut de l’écran, mais attention, dès que vous appuyez 
sur une touche de direction, elle s’élance. A partir de là, il faudra 
vous familiariser avec les touches directionnelles. Lorsque deux 
minutes se sont écoulées, un bilan vous est proposé avec les mètres 
parcourus. 


{ 


" f8 : Nord 
N 7 f9 : Nord-Est 
î f6:Est 
K / 13:Sud-Est 
(2 : Sud 
f1 : Sud-Ouest 
-{)(s){s)- f4 : Ouest 
f7 : Nord-ouest 
> Û 


ses 


Organisation du programme 


— Lignes 40 à 90: initialisation et question sur le choix du 
labyrinthe. 


— 100 à 140: affichage du circuit. 
— 500 à 540: test clavier et détermination de la direction. 


— 600 à 620: tests et affichage. Le caractère pointé par X et Y est 
testé par l’instruction COPYCHR. Si le résultat est différent de 
32, la puce vient de se cogner contre un mur. 
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— 1010: affichage du score. 


— 2000: des caractères sont redéfinis pour l’affichage du laby- 
rinthe. 


— 3000: retour aux caractères normaux. 


— Les labyrinthes sont stockés sous forme de datas de 10000 à 
30240. 


Création de nouveaux circuits 


Créez votre labyrinthe de 24 lignes de 40 caractères en utilisant les 
chiffres 1, 2, 3, 4 et 5. Placez-le par exemple en 40000 en respectant 
le même format que celui que nous vous proposons. Attibuez la 
valeur 4 à la variable NBRC en ligne 40. Enfin, modifiez les lignes 
80 à 84 comme suit: 


80 ON CIR GOTO 81,82,8:,684 
81 RESTORE 10000:GO0T0 90 
82 RESTORE 20006:G0OT0 90 
83 RESTORE 2%0000:GOTQ0 90 


84 RESTORE 40000 


Correspondance entre les 
chiffres utilisés pour la 
création des labyrinthes 

et les caractères graphiques. 
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Tableau des variables de la puce dans le labyrinthe 


CIR : numéro du labyrinthe en cours 
X 


| coordonnées de la puce 


Y 

TEMPS : nombre d'unités de temps écoulées 
KM : mètres parcourus 

NBRC : nombre de labyrinthes 
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Defender 





Pas tout à fait le vrai Defender, mais presque. Que les “casseurs 
d’aliens” se rassurent, il va falloir jouer du rayon laser pour nous 
débarrasser de ces sales bébêtes. Comme toujours, des aliens venus 
de l’espace menacent notre civilisation. Vous, Capitaine Amstra- 
dus, êtes désigné par le conseil général de la force de défense 
galactique pour anéantir à jamais ces empêcheurs de tourner en 
rond. Pour ce faire, vous piloterez le dernier prototype de 
Dassault : le Rambo II (qui tient son nom d’un héros de la guerre 
contre les J.A.P.S., les habitants de la planète Jaune). 


“Capitaine Amstradus ! embarquement immédiat !” Cette phrase 
vient de retentir dans l’atelier où votre vaisseau vous attend. 
Deux-trois gouttes de sueur perlent sur votre front buriné par le 
vide cosmique. Vos jambes vacillent, mais il est trop tard pour 
reculer. La porte du vaisseau s’ouvre avec un léger “pschitt”, vous 
gravissez les marches comme un somnambule pour vous retrouver 
assis aux commandes. À jamais, votre nom sera gravé dans 
l'Histoire... Merci, Amstradus ! 
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INF O,0:INK 1,7: FAFER ©: BORDER O:FEN 1 


*=zzz-zs=zz=z== KREDEFINITION DES CARACTERES ======2==22=2=2=2== 


SYMEOL AFTER 190 
SYMEOL 200,880,8C0,8A0,2890,%88,8E4,%12,8C9 


SYMEOL 201,%A4,8D2, LAA, SOA, RCA, SAA, &9A, LCA 


 SYMEOL 202,880,2840, 823,810, %0, 80, %O,%7F 


SYMEOL 2035,80,27,8F8, 80, 80,20, 80, 8FE 
SYMEOL 2O4,8FE,%1, REC. SE, IF, RO, LO, LEO 
SYMEOL 205,%0,280,860,818,287,%0,8F, &O 
SYMEOL 206,80, 20,%0,80,EO, 818,84, %2 
SYMEOL 207, M4AA, RDA, U7E. LI, UE, 6, D, &1F 
SYMEOL 208,895, AA, &DS, LAA, 855, LAB, RSC, FO 
SYMBOL 209,855, RAA, SF, LEO, &60, 880,280, 80 
SYMEQOL 210,8C0,RBO,R8RFF, &O, 80,80, 80, 80 


SYMEOL 211,80, RO,RFE, LRO, RO, RO, RO, &O 


3 SYMEOL 212,835,86,28F8,80, 80,80, 80, 0 





SYMEOL 213,880, 440, %IT,%B, RA4, LIT, LAC, 880 
SYMEOL 214,90,8CC, UT, 848,284, %33, SCC, &0 


SYMEOL 215,8%4,8C8,%270,%40,880,870,8C8, %4 


FOR I=1 TO S:YA(I)=I: XA(I)=7S:NEXT I 
XV=1: YV=10: NERAL=L: VIT=1 


ALH=CHRS (217) +CHRS$ (214) +CHR$ (215) 
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RTS=CHRS (10) +CHRS$ (8) +CHRS (8) +CHRS (8) +CHRS (8) +CHRS (8) + 
CHR (8) : E$=CHR$ (32) 


93 EFFAS<ES+EH+E8+E$ 

94 FOR I=i TO 32:READ A: VAIS=VAIS+CHRS (A) : NEXT 

95 EFF$=<ES+ES+E6+ES$+EH+ES+RTS+ES+ES+ES+ES+ES+ES+RTS$S+ES+ES+ 
Eb+E$+E$+E$ 

96 DATA 200,32,22,32,32,32,10,8,8,8,8,8,8,201,202,203,204, 

205,206,10,8,8,8,8,8,8,207,208,209,210,211,2 

12 

99 * 

100 =sseseprpp PRESENTATION ======---2-=esemencssesssesss 

105 


110 CLS:MODE 1 


» LOCATE 10,10:FRINT "DEFENDER MISSION" 


200 AS$S=INEEYS:IF A$="" THEN 200 


CLS 
LOCATE 3,S5:FRINT'ENTRER VOTRE NIVEAU" 
LOCATE 6,7:FRINT'FRO : 1" 


LOCATE 6,9:FRINT'AMATEUR : 2" 


250 LOCATE 6,11: PRINT'DEBUTANT : 5" 


260 LOCATE 6,15: INPUT AS:NIV=VAL(AS):IF NIVE1 OR NIVSS 


THEN 260 


300 MODE 2:SFEED KEY 1,1 


310 LOCATE 8,22:FRINT'NOMERE DE TIRS":;SFC(12) 3: 


FRINT "TIRS REUSSIS";SFC(12)3: "ALIENS MANQUES”" 


510 CLEAR INPUT: LOCATE XV, YV:FRINT VAIS:; 


GO LOCATE 23,22Z:FRINT T13:LOCATE 47,22:PRINT T2;: 


LOCATE 73,22:PFRINT NF; 
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320 GOSUR 3000 


999 * 
1000 
1005 
1010 
1020 
10350 
1040 
1050 
1060 
1070 
1100 
1999 
2000 
2005 


2010 


2090 
2100 
2110 
2999 
3000 


3005 
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A$S=INFEYS:1IF A$="" THEN 500 

A=ASC (AS) 

IF A=241 AND YV<=18 THEN LOCATE XV,YV:FRINT EFF$3:YV=YV+1 
IF A=240 AND YV:1 THEN LOCATE XV,YV:FRINT EFF$3;:YV=YV-1 
IF A=242 AND XV:3 THEN LOCATE XV,YV:FRINT EFF$3: XV=XV-2 
IF A=243 AND XV:50 THEN LOCATE XV,YV:FRINT EFF$3:XV=XV+2 
1F A=52 THEN GOSUK 2000 

GOTO 500 


rrrs==z=szs G/F TIR =====z==z====zz==z=zzz========2rse 


T1=T1+1 


* YT=(YVXx-16) +408: XT=XVX8 


MOVE XT,YT:DRAW XT+600,YT, 1 
FOR I=1 TO NERAL 
IF XV:XA(I) THEN 2090 ELSE IF YV=YA(I) THEN GOSUB 4000 


ELSE IF NIV=1 THEN 2090 ELSE IF YV=YA(I)+1 THEN GOSUR 
4000 


ELSE IF NIV=2 THEN 2090 ELSE IF YV=YA(I)-1 THEN GOSUK 
4000 


NEXT I 
DRAW XT,YT,0 


RETURN 


3010 


5020 


Rae) 


5040 


5050 


5070 


3999 


4000 


4005 


4010 


4020 


4050 


4040 


4050 


4080 


4070 


4999 


5000 


3030 


5040 


5050 


P=P+lsiF FNBRAL THEN F=i 
LOCATE XA(F),YA(P):FPRINT EFFAS: 


XA(F)=XAiF)-VIT:IF XA(F)£1 THEN XA(F)=75: NP=NF+1: 
IF NF=4 THEN 5000 


FY=INT (RNDX3)—-12YACF)=YA(F) +FY: 
IF YA(F)£1 OR YA(F):20 THEN YA(F)=YA(F) -FY 


LOCATE XA(F),YA(F):FRINT ALS: 


RETURN 


&sésésse+st GS/F EXFLOSION GALACTIQUE ===r2222zszs-2z222-e 


FOR J=0 TO 5 

LOCATE XA(I),YA(I): FRINT'"EOUM"; 
LOCATE XA(I),.YA(I):FRINT EFFAS$: 
NEXT J 

SOUND 1,10,10,10 


TE=T2+1: XA(1)=75S: NRRAL=NERAL+1:IF NBRAL:S THEN NERAL=S: 
VIT=VIT+I:IF VITÉ:S THEN VIT=S 


RETURN 
? 


æsmæmmmæm—æ NOUVELLE FARTIE ? =ezemesæseretesetæz==== 


INE 1,2:FOR 1=0 TO 2S0:FLOT RNDX*640,RNDX400, 1: 
SOUND 1,7200,2,15:NEXT I 


CLS: INK 1,26: SFEED KEY 30,2 
LOCATE 10,10:PRINT"'UNE AUTRE PARTIE " 
LOCATE 30,10:INFUT A$ 


IF A$="0" THEN RUN ELSE IF A$="N" THEN END ELSE 
GOTO 5040 
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Pour les heureux possesseurs de manettes de jeux, nous proposons 
ici la version qui les utilise. 


E2 LU 2 


lon æesssssssss JEST MANETTES DE JEUX =====mmmmmmenmmmmm 

1008 

1010 A=JOY(U):IF A=0 THEN 500 

1030 IF CA AND ©) AND YVé18 THEN LOCATE XV, YV:FPRINT EFF%:: 
YV=YV+1 


1040 IF (À AND 1) AND YV:1 THEN LOCATE XV, YU: FRINT EFF$:: 
YV=YV—I 


1050 IF {A AND 4) AND XV%3 THEN LOCATE XV,YV:FRINT EFF$#:3: 
XV=XV-E: 


106 IF (A AND 8) AND XV#50 THEN LOCATE XV, YV:PRINT EFF$#:: 
XV=XV+2Z 


1070 IF À AND 16 THEN GOSUR 2000 
1100 GOTO 500 


1999 * 


Mise en route 


Le jeu commence par une question sur votre niveau. Répondez 
honnêtement, ou la partie sera courte... Votre vaisseau fait son 
apparition sur la gauche de l’écran. Dès qu’il est en place, les aliens 
commencent à attaquer. Un compteur vous indique le nombre de 
tirs, un autre les tirs qui ont atteint leur but et un troisième affiche 
le nombre d’aliens manqués. Trois boucliers protègent la Terre, 
c’est-à-dire que trois vaisseaux ennemis peuvent vous échapper, 
mais dès le quatrième, votre mission aura échouée et la Terre sera 
envahie. 


Vous vous déplacerez en utilisant les flèches directionnelles et la 
barre d’espace vous servira à tirer. Suivant le niveau choisi, la 
qualité du tir sera différente. Si vous avez choisi “Pro”, vous devrez 
tirer exactement dans l’ennemi. Pour “Amateur”, la marge 
d'erreur est plus importante, ainsi que pour “Débutant”. 
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Organisation du programme 


— Lignes 50 à 66: redéfinition des caractères pour les dessins du 
vaisseau et des aliens. 


— 70 à 95: initialisation des variables. 


— 100 à 310: présentation du jeu et question sur le niveau du 
joueur. 


— 500 à 530: programme principal qui permet l'affichage du 
vaisseau et des scores, puis appel du sous-programme de 
déplacement des aliens (ligne 530). 


— 1000 à 1100: test clavier. La variable A$ contient le caractère 
ASCII de la touche qui a été enfoncée, puis en ligne 1020, A prend 
le code de ce caractère. Ensuite, les paramètres sont modifiés 
suivant la valeur de A. Ligne 1070, un appel au sous-programme de 
tir se fait si la touche d’espace a été enfoncée. 


— 2000 à 2110 : sous-programme de tir. Le tir est représenté par le 
tracé d’une ligne graphique. La boucle sur la variable I (2040-2090) 
permet de déterminer, suivant le niveau de jeu, les aliens détruits 
par le tir. L’effacement du tir se fait en 2100. 


— 3000 à 3070 : déplacement des aliens. L’alien est d’abord effacé, 
puis XA(P) (P représente le numéro de l’alien) est décrémenté par 
la variable VIT. YA (P) est modifié par l’ajout de PY qui peut être 
égal à —1, O0 ou 1. Fin de ce sous-programme par l'affichage de 
l’alien aux nouvelles coordonnées. 


— 4000 à 4070 : explosion d’un alien. La boucle sur J fait clignoter 
le mot “BOUM” à l’emplacement du vaisseau détruit. La ligne 
4060 permet de faire afficher les aliens progressivement : au début 
du jeu, un seul vaisseau ennemi se trouve à l’écran, mais dès que 
vous l’aurez détruit, deux autres apparaîtront, et ainsi de suite pour 
arriver à un maximum de 5. La vitesse augmente elle aussi 
progressivement. 


— 5000 à 5040 : fin de la partie et demande pour recommencer ou 
stopper. 
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Tableau des variables de “ Defender “ 


XA () 
VA() 
XV 
vv 







| coordonnées des aliens 









| coordonnées du vaisseau 


VIT : vitesse des aliens 
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Jump car 


Votre mission: nettoyer toutes les poutrelles d’acier. Votre 
matériel : un buggy, avec aspirateur intégré, qui fait des bonds pour 
aller de poutre en poutre. Trois tableaux de difficulté croissante se 
succèdent, où toute votre lucidité est requise. Devenu un as de ce 
jeu, vous pouvez toujours aller voir M. Chirac qui vous embauche- 
ra certainement au nettoyage des trottoirs parisiens avec, cette fois, 
une jolie moto verte et un casque argenté. Merci, Amstradounet ! 
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20 


120 


140 
499 
500 
305 
310 


320 
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MODE 1:LOCATE 16,10:FRINT "JUMF CAR" 


3 AS=INEEYS:IF A$="" THEN 33 


SYMEOL AFTER 190 
SYMEOL 200,%0,80,%0,%F,%13,815,%6,%7 
SYMEOL ZO1,8F, 811,222, 8D2, %4C, EF, 880,80 
SYMEOL 202,%CO0,%IF, NEC, 242,899, RAD, LES, 818 
SYMBOL 203,%3,8FC,UIC, %42,%99,2R5,8AC, 818 
SYMEOL 204,8F0,%88,244,84R, 422, %FD, %1, 0 
SYMEOL 205,20,80,80, F0, C8, LAB, 260, 8CO 


EVERY 5,1 GOSUK 900 


MODE 12INE OO: INE 1,26: IN 2,21,22:INE 3,6: 
BORDER 1:FAFER O:FEN 1 


VOITS$ (0) =CHRS (200) +CHRS$ (201) +CHRS (202) : 
VOITS (2) =CHRS$ (205) +CHR$ (204) +CHRS (205) 


VOIT#(1)=VOITS(2):EFF#$=" Ms XV=ls: YV=1:EM=O 
EI:LOCATE 1,4:G-6+1:0N{0 GOSUE 1000,2000,3000,4000 


LOCATE S,24:FRINT "Filometres parcourus'":KM 


AS=INÉEYVS:IF A$="" THEN 610 
A=ASC (AS) 


IF A=32 THEN FOR J=XV TO XV+2:LOCATE J,YV+i: 
IF COFYCHRS(#O)£5" " THEN GOSUR 800 ELSE NEXT 


540 IF A=242 THEN F=-1 ELSE IF A=243 THEN F=i 

599 * 

800 ‘=zz===zsee MOFIFICATION DES COORDONNEES ========2====2== 
805 ? 

610 LOCATE 25,24: PRINT ÉM;2:1F KM=FL THEN DI:GOTO 110 

620 LOCATE XV,YV:FPRINT EFF$#: 

FO XV=XV+F:IF XV=59 OR XV=0 THEN F=Fx-1i: XV=XV+F 

640 YV=YU+1 


650 FOR J=XV TO XV+2:LOCATE J,YV:1F COFYCHRS (#0) 2 :CHRS (52) 
THEN YV=YV-1 ELSE NEXT:GOTO 710 


6 LOCATE XV-2#x(F=-1) ,YV+1: 
IF COFYCHRS (HO) ="=" THEN FEN Z:FRINT "Hs: EM=EM+1 


899 * 
700 ‘ezessesesss AFFICHAGE DE LA VOITURE ==z=77z2zz22z2ssssesss 
705 


710 LOCATE XV, YV:FEN G:PRINT VOITS(F+1) 3 

720 GOTO 516 

799 © 

800 ‘æssesece-> GAUT DE LA VOITURE ========-==-2c2cœssses2s 
805 

810 FOR I=i TO 5 

820 LOCATE XV,YV:FRINT EFFS 

BEO XV=XV4P:IE XV=29 OR XV=0 THEN F=Fx-1: XV=XV+F 

840 YV=YV-1:IF YV=0 THEN YV=1: RETURN 


850 FOR J=XV TO XV+ 
IF COFYCHRS (HO) : 





LOCATE J,YV: 
HRS CZ) THEN YV=YV+1 ELSE NEXT 





870 LOCATE XV,YV: PRINT VOITS (F+1); 
880 NEXT 


990 RETURN 
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920 
989 

990 

995 

998 

999 

1000 
1010 
1020 
1030 
1040 
1050 
10860 
1070 
1080 
1090 
1100 
1110 


1120 
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FER=RNDX500 


SOUND 1,FER, 5. 15: RETURN 


FRINT" ==sssses= Ms: FL=217 
PRINT "=== à Hs 
FRINT'" Wu 
PRINT" =sszzz===2== UP 
PRINT" ===me===- RE 
FRINT" M. 
PRINT'====esscessesesssmsesszs “. 
FRINT" === “. 
PRINT" === ". 
PRINT"=====2222= made das sue 
FRINT" === ". 
FRINT" M. 
FRINT" =====sssssss==s======= ". 
FRINT" ssnæemenmem— Me 
FRINT" =z=sssesez= n. 
FRINT''=====zzzz u. 
FRINT" === =sessese=memshe 
FRINT" un 


FPRINT'======222mmmmmem-emnnmnmmnsmesemmmmmmmemte 


Q 


1900 RETURN 


1997 * 

1998 ‘====== PLANCHER No 2 =======2-22="-22=-22--22=2"22= 
1999 * 

2000 PRINT'"'===== Se DES roue "3 :PL=223 
2010 PRINT" "à 

2020 PRINT" = Dee SRE cnau ts 

2030 FRINT" "; 

2040 PRINT"===== === See sses "; 


2050 PRINT" " 


2060 FRINT'" se=== sese== se=es szzzzte 


2070 FRINT" mn 


2080 PRINT'=s=-=2=--=====2===2-=22=222222= ". 
2090 FRINT" sessets 
2100 FRINT'"'z===2=== ==== ==== ". 
2119 FKRINT" == “ 
2120 FRINT" == ====2=== "s 
2130 FRINT" ===", 
2140 FRINT" sé=--==22sse ces " ; 
2150 FRINT" =="; 
2160 FRINT" =zzzszz æs=zs====- == "2: 
2170 FRINT" ". 
2190 FRINT'===--=----------se22222se=22222222c=="; 


2900 RETURN 


2997 © 

2998 ‘====== PLANCHER No 3 ===s=ss22222222222222=====22222= 
2999 * 

3000 PRINT" === == === === —— =="; :PL=171 
3010 FRINT" "; 
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3020 FRINT"= = = = 


3070 FRINT" == = Sséners "3 
3040 FRINT" === ": 
2050 FRINT'"== "s 
3060 FRINT" sois SESREs 
3070 FRINT'" ses “. 
3080 PRINT" == 25 Jos _ 
3090 FRINT" ". 
3100 FRINT" === === === " 
3110 FRINT" ". 
5120 PRINT" =========2===ss=2=s=52=22=2=22se22zsz2z Me 
TF170 FRINT" ". 
3140 FRINT" === === == ERS= "5 
3150 FRINT" sat) 
lé FRINT'"=z=z= == z== == " 
3170 FRINT" 

T190 FRINT'emessssmepmenepospesenecesepemnmeneecesszeæels 


3900 RETURN 
4000 DI:CLS:LOCATE 10,10:FRINT'MISSION ACCOMFLIE" 


= 


4010 INFUT"'UNE AUTRE FARTIE (Q ou N)";:A$ 


4020 IF A$="0" THEN RUN ELSE IF A$="N" THEN END ELSE 
INFUT &$:GOTOQ 4020 


10000 FOR Y=1 TO 23:FOR X=1 TO 40: LOCATE X,Y: 
IF COFYCHRS (HG) ="z" THEN FLEFL+1 


10010 NEXT X,Y:FRINT FL 
Mode d’emploi 


Une fois que toutes les poutrelles sont affichées, votre voiture 
apparaît en haut et à gauche de l’écran. Dès la première pression 
sur une touche directionnelle, elle s’élancera. Dirigez-la avec les 
flèches droite et gauche, faites-la sauter avec la barre d’espace- 
ment. 
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Modification pour manettes de jeux 


499 


SO0 æmescence JEST MANETTES DE JEUX ====messesesenessness 








90 


510 A=JOY{O):IF A=0 THEN 610 


520 IF À AND 16 THEN FOR JeXV TO XV+Z:LOCATE J,YV+i: 
IF COPYCHES (#0) € :CHRS (32) THEN GOSUE 800 ELSE NE 


XT 
S50 IF À AND 4 THEN F=-1 ELSE IF À AND 8 THEN F=1 


999 * 


Fonctionnement du programme 


— Lignes 35 à 90: les caractères représentant la voiture sont 
redéfinis. 


—_ 100 à 140: initialisation. La ligne 130 se charge de la sélection du 
tableau de jeu. 


— 500 à 540: test clavier. En ligne 530, se trouve le test pour le saut 
de la voiture. On regarde si elle est bien sur une poutrelle et non 
dans le vide. 


_— 600 à 660 : modification des coordonnées. Test de rebond et de 
chute. 


— 700 à 720: affichage de la voiture. 


—_ 800 à 890 : saut de la voiture avec, en 850, un test pour savoir si 
en sautant la voiture se cogne contre une poutrelle. 


— 900 à 920: musique, totalement aléatoire. 


— Enfin, vous trouverez les planchers à partir de 1000. 


33 










Tableau des variables de “ Jump car “ 
VOIT$ (0) : voiture allant vers la gauche 


VOITS$ (1) 
VOIT$ (2) 


EFF$ : chaîne vide servant à effacer la voiture 
XV 


“| coordonnées de la voiture 






| voiture allant vers la droite 









Création de nouveaux parcours 


Il faut d’abord créer le dessin de votre plancher de 19 lignes de 
40 caractères. Placez-le par exemple en 5000 et faites-le afficher à 
l'écran. Vous avez sans doute remarqué la présence des lignes 
10000 et 10010: lancez-les par RUN, ce qui vous donnera le 
nombre de “=”. Vous n’aurez plus qu’à reporter la variable PL 
dans le programme. Enfin, modifiez la ligne 130 comme suit : 


LEO ETsLULAIE 4: GeG+ls ON 15 GOSUE 1000, 2000, 8000, 4G000,5000 
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Space Invaders 


Crak! Zump! Zap! Bloup! Dugudug! Pouing! Tout y est. 
Explosions, pluie de missiles, soucoupes, aliens, déplacements 
rapides et précis, tout y est. 


Des morceaux de listing source, des explications, un dump, un 
utilitaire pour entrer le bloc mémoire, quatre kilos de codes, mal 
aux yeux pendant une semaine et le bout des doigts qui s’effrite 
pour avoir voulu tout taper en une nuit, tout y est. 


Ce programme, dont la grande originalité n’est pas la qualité 


première, va, nous en sommes certains, vous donner la passion de 
l'Assembleur. 
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Un petit rappel sur la machine 


Lors de l’implantation du microprocesseur sur l'AMSTRAD), les 
ingénieurs de la marque disposaient d’une multitude de petites 
puces. Mais laquelle choisir ? That is the question ! Deux raisons 
leur ont fait préférer le Z 80 : tout d’abord, c’est un processeur très 
connu et facile à programmer ; ensuite, étant fabriqué depuis très 
longtemps en série, son prix est descendu au rang de celui d’un 
paquet de cigarettes. 


Vieux routard de la micro, nous avons fait nos premières armes sur 
un TRS 80, lui aussi équipé d’un Z 80, ce qui ne nous a pas laissé 
un impérissable souvenir de rapidité. L’arrivée d’une nouvelle 
machine sur le marché est toujours un événement, mais cette 
fois-là, notre curiosité n’a pas été terriblement excitée par cette 
“babasse” avec son vieux Z 80. Et pourtant, les ingénieurs 
d’AMSTRAD ont su rajeunir la vieille puce en lui facilitant la tâche 
avec un processeur graphique, un sonore, etc. Etant donné qu’en 
Angleterre les câbleurs n’ont pas un poil dans le creux du fer à 
souder, toute cette joyeuse mécanique s’est mise à fonctionner et à 
se reproduire à la vitesse grand V. L'empire AMSTRAD était né et 
le sieur Sugar commençait à remplir les poches de son percepteur. 


Comment ? Pourquoi? Où ? 


Deux programmes bien distincts devront être tapés, l’un en 
BASIC servant à lancer l’autre en langage machine. 








110 eressssses GPACE INVADERS s=memenessnoncenesencensess 
120 ‘æssesauces PROGRAMME DE LANCEMENT DU 

130 'ensessesse PROGRAMME ASSEMELEUR semsuss 

HE een nn es nee DRen Mpn rune ur dCi re 


150 MODE 1:INE ©.0:ERORDER Os: INE 1,15 


160 MEMORY %71FF 
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170 LOCATE 14,2:FRINT "SPACE INVADERS" 

180 LOCATE 5,10: FRINT'CHARGEMENT DU FROGKAMME MACHINE" 
190 LOÂD''SFACEZ" 

200 CALL 88000 

219 MODE 1:1NE 0,0: BORDER Os INF 1,15 

220 LOCATE 5,10: FRINT'UNE AUTRE FARTIE ( O0 ou N D": 

230 CLEAR INFUT 

240 AS=UPFFERS CINÉEYS) 

280 IF A$="0" THEN 260 ELSE IF AS="N" THEN END ELSE 240 


260 CALL ROLT 





270 GOTQ #10 


Si vous possédez un 464, vous serez obligé de taper cette ligne 
supplémentaire : 






195 FOFE 


FAË FOFE &9010,8ER:FOFE 89011, 
&E4: FOFE 


F SEA: FORE 0267, 426 





Tout de suite, un petit éclaircissement en ce qui concerne le 
vocabulaire : ne pas confondre Assembleur et langage machine. Le 
premier, comme son nom l'indique, sert à assembler un programme 
source écrit avec des mnémoniques, ce qui simplifie énormément la 
tâche du programmeur. Le langage machine est ce que l’on obtient 
après assemblage ou après écriture directe avec le code des 
instructions du processeur (pour masochistes, uniquement !). 
Le programme binaire doit être implanté à partir de l’adresse 
$74D8, pour se terminer en $8450. Avant la saisie du programme 
machine, il faut réserver la mémoire pour éviter au BASIC de 
déborder sur vos codes. Tapez MEMORY &71FF. La zone entre 
$71FF et $74D8 est réservée comme zone de travail pour le 
programme. Nous vous proposons ce petit utilitaire vous permet- 
tant de pupitrer ces codes avec le maximum de facilité et de 
fiabilité. 
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10 * 


20 © 


80 


90 


100 


110 


120 


130 


140 


150 


160 


170 


180 


190 


200 





ï 


MODE 2% 

INFUT'"Adresse de debut'":ÂS$ 
AS=UFFERS (A$S):IF AG="X" THEN 200 
DER=VAL (MR "+A8) 
CLS 
FOR I1=0 TO 7 

FRINT HEXS$(DER+I,4); 

INFUT F$ 

F=eVAL ("&"+F$):POKHE DER+I,F 
TT=TT+F 

NEXT 

FRINT'total "3HEXS(TT): TT=0 
AS=INEEYS: IF AS=CHRS (127) THEN 90 
AS=UFFERS (AS) :IF A$="X" THEN 200 
IF A$S<:CHRS (13) THEN 160 
DER=DER+8:GOTO 90 


END 


Vous devez commencer par entrer l’adresse d’implantation, soit 
74D8, puis les huit premiers codes. Le programme vous indique 
alors “Total 117”. Comparez ce chiffre avec celui en fin de 
première ligne du listing. Ainsi, vous pourrez savoir si Vous avez 
commis une faute de frappe. Si oui, pressez la touche DEL, ce qui 
vous ramènera au début de la ligne, sinon appuyez sur ENTER et 
passez à la ligne suivante. Le pupitrage de ce bloc mémoire étant 
long et fastidieux, vous pouvez l’entrer en plusieurs fois: pour ce 
faire, tapez X et ENTER et sauvez le bloc par SAVE“SPACE?2”, B 
, &74D8, &1000. 
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Un autre utilitaire peut servir à cette saisie et à sa correction : un 
dump. 


900 IMF=0: MODE 7 

1000 INFUT "debut"; A$: DEH=VAL ("&"+A%) 
1910 INFUT'"'fin"; A$:FINEVAL ("&"+A8) 
1020 IF HEX$S(fin)2HEX$(deb) THEN 1000 


1070 FRINT HEX$(deb,4)" SE 
IF imp THEN FRINT #89,HEX$(deb,4)" : e 


1040 FOR isdeh TO deb+7 


1050 PRINT HEX$(FEEKH(i),2)" "ss 
IF imp THEN FRINT #8,HEX$(FEEK(i),2)"  "s 


10585 Tt=Tt+FEEK(i) 
1060 IF i=fin THEN 2000 


1070 NEXT:FRINT "  "HEXS$ (TE): 
IF imp THEN FRINT #8," = "HEXS(Tt) 


1080 deb=deb+8:Tt=0 

10906 FRINT:IF imp THEN FRINT #8 

1100 GOTO 10370 

2000 PRINT:FRINT:IF imp THEN FRINT #8:FRINT #8 


2010 FRINT'"fin":END 


Celui-ci nous a permis de lister ce programme. Si vous désirez faire 
une sortie imprimante, mettez le flag IMP à 1 en ligne 900. Son 
fonctionnement est très simple : entrez le début et la fin du dump à 
effectuer. 
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Commentaire sur le programme Assembleur 


Le listing source de ce programme étant très long, nous avons 
choisi de commenter trois routines. 


1) Routine d’affichage : $7830 - $7849 


Pour mieux comprendre ce sous-programme, nous vous proposons 
quelques commentaires sur la mémoire écran de l’AMSTRAD. 


Il faut savoir qu’une “case” de l’écran est en fait constituée de 


8 octets qui appartiennent chacun à un des 8 blocs de 2 Ko qui 
forment la mémoire écran. 


Mémoire écran : CZ98 - FFFF (16 K-octets ) 


BlocA : C299-C7FF———> ligne 1 (2K-octets) 
"" 1 : C82D-CFFF——> ligne 2 


1 
2 DS88 - D7FF 
3 : D689 -DFFF 
" 4 : Eg98 -E7FF 
" 5 : E6989-EFFF 
6 F698 - F7FF 
Bloc 7 F899 -FFFF ——> ligne 8 


En réalité chaque bloc ne fait que 2 000 octets. Il y a donc 48 octets 
inoccupés (qui peuvent servir à décaler l’écran en cours d’utilisa- 
tion). Ainsi, le bloc 0 va de $C000 à $C7CF, le bloc 1 va de $C800 à 
$CFCEF, etc. 


Donc, une “case” écran comporte en fait 8 lignes de 1 octet 
adressées de 2 Ko en 2 Ko. Exemple : la case 1, en haut à gauche, a 


l’octet de la ligne 1 à l’adresse $C000 et celui de la ligne 2 se situe 
2 Ko plus loin, en $C800. 


Note: 2 k-octets = 2x1 024 octets = 2 048 = $800. 
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case 1 case 2 


— 


ligne 





ligne 8 


En conséquence, la matrice du dessin doit avoir une structure 
adaptée à celle de l’écran. Soit n le nombre de cases de la largeur du 
dessin, il faut d’abord écrire les n octets de la première ligne, puis 
les n octets de la deuxième... jusqu'aux n octets de la huitième 
ligne. 


Exemple: la matrice de la soucoupe ($7650 - $764F). 


7628 ——> 99 09 16 09 00 08 
7626 ———> 99 09 FF 99 09 08 
98 FF FF FF 90 00 
FF FF FF FF FF 99 
CS:CS5 CS CS: CS'08 
PP: EF EF FF-FF 50 
08 FF FF FF 99 0 
7644 —> 99 90 FF 99 00 09 
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Matrice de la soucoupe 











( 
pue ET D Dee en oo oo oo mo eo 

mRBn CD OOOOODOOOOC COOOOCC EERR=EsE 
HE CTTTITTT)TIsesesaiaie TITTITIEITILEN 
CELITIIIT RRRRRRBR OI IIRRRREE RRRARARE 





Ce sous-programme n’affiche les dessins que sur une seule rangée. 
Pour les matrice plus “hautes”, il faut les décomposer en autant de 
matrices que de rangées. 


7830 32 3B 78 LD(783B),A 
7833 ED 44 NEG À 

7835 32 41 78 LD (7841),A4 
7838 3E 08 LD A, 08 
783A O1 XX 00 NOULIG LD BC, O0 XX 
783D ED BO LDIR 

783F ES PUSH HL 

7840 21 XX O7 LD HL,07 XX 
7843 19 ADD HL , DE 
7844  EB EX DE ,HL 
7845 E1 POP HL 

7846 3D DEC A 

7847 20 F1 JR NZ, NOULIG 
7849 C9 RET 
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Maintenant, interrogeons-nous sur le fonctionnement de ce 
sous-programme. 


— À contient la largeur du dessin en octets. 
— HL contient l’adresse de la matrice du dessin à afficher. 
— DE contient l’adresse d’implantation en mémoire écran. 


Tout d’abord, le nombre de cases contenues dans le registre A est 
placé dans le registre C (poids faible du registre BC). L’opposé de 
A est placé dans le registre L (poids faible du registre double HL). 
Ensuite, une boucle avec À comme compteur est réalisée. 
L’instruction LDIR charge l’écran avec les octets de la matrice et 
ceci ligne par ligne. 


Pour passer d’une ligne à l’autre, il faut “sauter” au bloc suivant qui 
se trouve $800 octets plus loin. Comme n octets ont déjà été 
parcourus, il faut les ôter de $800 pour arriver au début de la ligne 
suivante. C’est ce qui a été fait en plaçant A dans le registre L. 
Puisque H contient la valeur $07, le registre double HL est chargé 
avec la différence : $800 — A. La nouvelle adresse est obtenue par 
le produit de HL et de DE, puis il est placé dans DE. 


Enfin, on décrémente le compteur A et le programme boucle si A 
est différent de zéro. 


2) Sous-programme de sons 


Le son est produit par le générateur programmable AY-3-8912 de 
General Instrument. 


De façon très schématique, il suffit, pour produire des sons, de 
charger les registres du générateur avec les valeurs adéquates. Il y a 
16 registres dont 14 sont intéressants pour la production de son. 
Nous les détaillons ci-dessous : 


— Registres 0 et 1 : influencent la valeur de la fréquence du signal 
sonore du canal A. Le registre 0 est considéré comme poids faible 
et permet d’obtenir une fréquence précise tandis que le registre 1, 
considéré comme poids fort (dont on utilise uniquement les 4 bits 
inférieurs), ne permet qu’une variation grossière de la fréquence. 
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Donc, plus la valeur des 12 bits est importante, plus le son est 
grave. 


— Registres 2 et 3: idem mais pour le canal B. 
— Registres 4 et 5: idem mais pour le canal C. 


— Registre 6: seuls les 5 bits inférieurs sont utilisés. Ce registre 
concerne la production de bruits. 


— Registre 7 : c’est le registre de contrôle de production des sons. 
Chaque bit joue un rôle précis : 

bit 0: autorise ou interdit le son du canal A; 

bit 1: idem pour le canal B; 

bit 2: idem pour le canal C; 

bit 3: autorise ou interdit le bruit du canal A; 

bit 4: idem pour le canal B; 

bit 5: idem pour le canal C; 

bit 6 et bit 7 : à ne pas modifier, port d’entrée-sortie du clavier. 
Non, non ! Pas d’erreur de frappe, c’est bien le port d’entrée-sortie 
clavier qui a atterri au beau milieu du générateur de sons. Hips! 


— Registre 8 : ce registre fixe le volume du son du canal A par ses 
4 bits inférieurs. Le volume suit donc une échelle de 0 à 15. Si le bit 
numéro 4 est à 1, alors le volume est déterminé par les registres de 
courbe d’enveloppe de volume (registres 11, 12 et 13) et les 4 bits 
inférieurs sont ignorés. 


— Registre 9: idem pour le canal B. 
— Registre 10: idem pour le canal C. 
— Registres 11 et 12: la valeur des 16 bits de ces 2 registres 
correspond à la période d’exécution de la courbe d’enveloppe de 
volume déterminée par le registre 13. En fait, plus cette valeur est 


forte et plus la “pente” des courbes d’enveloppe de volume 
diminue. 
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Période faible NRA INT SAS 
Période forte "NO use Se 2 


Période faible 


E—————— 7 


Période forte a 


— Registre 13: ce registre attribue la forme de la courbe 
d’enveloppe de volume par ses 4 bits inférieurs selon le tableau 
suivant: 
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Un sous-programme en ROM permet de modifier les registres du 
générateur de sons. Il suffit, pour transmettre les données, de 
mettre : 

e dans À, le numéro du registre du générateur de sons, 

e dans C, la valeur que l’on souhaite y placer, 

et de faire un appel en $BD34 correspondant à la routine RSTS. Ce 
RST appelle aussi bien en ROM basse qu’en RAM moyenne sans 
modifier l’état des autres ROM et RAM. 


Voici maintenant comment sont produits les sons dans Space 
Invaders. 


— Un sous-programme ($8300 à $8362) a pour rôle de transmettre 
aux registres du générateur de sons les valeurs voulues. Il s’agit 
d’une suite d’instructions identiques: 


SOUND 1 
8398 SE 28 LD ÀA,8 
Registre g 8392 OE XX XX LD C,XX XX 
83294 CD 34 BD  CALL CHARG REGISTRE 


8397 SE 91 LD A ,91 

Registre 1 8399 OE XX XX LD C, XX XX 
839B CD 34 BD CALL CHARG REGISTRE 
830E 3E 92 LD A ,92 


Registre 2 8319 OE XX XX LD C,XX XX 
8312 CD 34 BD CALL CHARG REGISTRE 


H 
î 


835B 3E 0D LD A ,9D 
Registre 13 835D  OE XX XX LD C,XX XX 
835F CD 34 BD CALL CHARG REGISTRE 


8362 C9 RET 
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— Un deuxième sous-programme ($8370 à $837F) attribue, dans le 
S/P précédent, une valeur au registre C. 


SOUND1 8379 21 93 83 LD HL, 8393 


68373 SE 97 LD C,97 
8375 96 SE LD B,8E 
NOUVAL 68377 1A LD A,(DE) 
63768 77 LD (HL),A 
8379 7D LD A,L 
837A 861 ADD A,,C 
837B 6F LD L,A 
837C 13 INC DE 
837D 19 F8 DJNZ NOUVAL 
837F C9 RET 


DE doit contenir l’adresse de la table où sont stockés les 
paramètres de sons. La première valeur de la table correspond à la 
valeur que l’on veut placer dans le registre 0, la deuxième pour le 
registre 1, et ainsi de suite jusqu’à la quatorzième valeur qui sera 
pour le registre 13. Ce système permet de modifier aisément les 
paramètres et d'écouter immédiatement le résultat. 


Voici, en résumé, notre façon de faire. Après avoir établi une table 
avec les 14 valeurs des paramètres de sons, appeler le programme 
suivant: 


LD DE Adresse de la table 

CALL SOUNDI Chargement des paramètres 
CALL SOUND2 Transmission des paramètres 
RET 


3) Sous-programme de scrutation du clavier 


Seul le principe de lecture des touches vous sera commenté car les 
déplacements du vaisseau et le tir sont trop spécifiques au 
programme. L'état du clavier est constamment représenté en 
mémoire par 9 octets. 
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CORRESPONDANCE OCTETS - TOUCHES 







Pavé 
numérique 


CALE CS FA RON EN ER ES EN ENS 


Enter 13 f6 f9 


[uæc Te36 ] RSS ER 


f0O f2 f1 15 f8 F7 Copy 


[nan Toss7 ] ES AE PA NNN En 


Ctrl Shift f4 Enter Ê cr 
ORNE 

» / : = P e - + 
TISISTe SET 

: M K L ] 0 9 
[s4ro Ts6sa ] ER RSS ER EN ENIES 


Space N 
[rIsIsT4TsT2T'fo] 
V B F 6 T R s] 6 
[rIsfsfafsf2liTo] 
X C D S W E 3 4 
[sars [ses ] OO RRERE 


A Tab Esc 


Chaque bit de ces octets correspond à une touche du clavier. 
Quand le bit est à 1, la touche est enfoncée. Cette méthode de 
scrutation est très rapide car il suffit juste de tester un bit au lieu de 
passer par le décodage clavier, routine beaucoup plus longue. 
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Fonctionnement 


Le vaisseau se dirige de droite à gauche avec les touches 
directionnelles, le tir est déclenché par une pression sur une des 


deux touches SHIFT. Dès votre premier tir, les aliens commencent 
à envoyer leurs bombes. Utilisez les abris pour les éviter. 


Les deux premiers tableaux sont identiques mais, dès le troisième, 
de nouveaux types d’ennemis apparaissent. 


Appuyez sur le “gros” ENTER pour une nouvelle partie et sur le 
“petit” pour stopper une partie en cours. 


Listing code machine 


74D8 : O0 00 18 O0 O0 O0 FF 00 = 117 
7AEQ 3 O0 07 FF EO O0 FF FF FF = 4E3 
74E8 3: O0 FF FF FF 00 07 FF EO = 4E3 
74FQ : 00 O0 FF O0 00 00 00 00 = FF 
74F8 3: O0 O0 7E O0 00 00 7E 00 = FC 
7900 3: O0 O0 7E O0 00 00 7E 00 = FC 
7508 !: O0 00 7E 00 00 00 18 OÙ = 96 
7510 ! O0 O0 60 O0 00 97 CO 00 = 127 
7518 3 00 00 7E 00 00 OÙ 7E 00 = FC 
7820 3 O0 O0 7E O0 O0 O0 7E 00 = FC 
7528 : O0 O0  7E O0 00  o0 18 00 = 96 
7550 5 O0 00 06 00 O0 00 05 EO = E9 
79358 2: 00 00 1€ O0 00 O0 7F 00 = 9Ek 
7540 3 O0 OF FF EO O0 OF 1C 78 = 285 
7S48 3 OÙ OF FF F8 00 00 36 00 = 23C 
7850 5 O0 O0 C1 80 O0 O7 O6 70 = 1KH8 
7558 : O0 O0  1C O0 O0 O0 7F 00 = 9E 
7560 3 O0 OZ FF EQ O0 OF 1C 78 = 285 
7568 2: 00 OF FF F8 00 00 36 00 = 23C 
7570 : 00 90 Ci 80 00 O0 77 O0 = 1E8 
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7580 
7588 
7590 
7598 


7540 


7600 
7608 
7619 
7618 
7620 
7628 
7630 
7658 
7640 


7648 


7660 
7668 
7870 
7678 


7680 


50 


00 


00 


O0 


00 


00 


00 


00 


00 


00 


00 


00 


O0 


O0 


00 


07 


1F 


O0 


FF 


06 


o1 


CC 


18 


Q0 


OF 


O0 


F8 


7F 


06 


00 


F8 


7F 


O0 


90 


10 


FE 


FF 


FF 


00 


00 


FF 


O0 


00 


00 


81 


O0 


18 


FF 


FF 


00 


FF 


FF 


00 


O0 


FF 


FF 


00 


FF 


7E 


FF 


FF 


7E 


FF 


66 


00 


O0 


O0 


co 


FO 


18 


00 


FF 


FF 


O0 


18 


00 


80 


03 


FF 


FF 


FO 


Co 


FE 


Cé 


00 


1F 


FE 


60 


00 


1F 


FE 


O0 


O0 


Où 


O0 


00 


O0 


00 


00 


FF 


00 


00 


00 


FF 


FF 


00 


00 


00 


O0 


00 


00 


00 


00 


00 


co 


FF 


FF 


FF 


o1 


78 


7F 


FF 


00 


00 


58 


FF 


FF 


7C 


00 


FF 


FF 


00 


FF 


O0 


00 


18 
FF 


FF 


00 


18 


FF 


E7 


FF 


FF 


06 


FF 


FF 


E7 


81 


00 


00 


80 


Co 


1C 


FF 


FF 


FF 


00 


60 


00 


00 


00 


FF 


FF 


1E 
FE 


FF 


00 


le] 
Le) 
Le, 


00 


00 


FF 


00 


FF 


FF 


[ae] 


00 


00 


1D 


18 


00 


00 


co 


[e] 


48 


280 


Z8C 


316 


15E 


204 


228 


10B 


SFA 


&6BD 


7688 


7690 


7698 


76A0 


7648 


76R0 


76E8 


76C0 


78C8 


76D0 


76D8 


76E0 


76E8 


76FQ0 


76F8 


7700 


7708 


7710 


7718 


7740 


7748 


7750 


7758 


7760 


7768 


7770 


7778 


7780 


7788 


7790 


OF 


+ 


FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 


00 


40 


FF 
FF 
FF 
FF 
FF 
FF 
oi 
00 


00 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


00 


C1 


C1 


14 


00 


00 


00 


FF 


FF 


FF 


FF 


FF 


FF 


o1 


00 


00 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


01 


O0 


FE 


00 


80 


00 


Le] 
ä 


00 
FF 
FF 
FF 
FF 
FF 
FF 
o1 
00 


00 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FO 


Co 


80 


00 


96 


00 


00 


FF 


FF 


FF 


FF 


FF 


FF 


00 


Lars] 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


01 
00 


00 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


00 


00 


O0 


FF 


FF 


FF 


FF 


FF 


o1 


O1 


00 


00 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


00 


OH 


FF 


10 


00 


10 


00 


00 


00 


FF 


FF 


FF 


FF 


FF 


o1 


O1 


où 


OG 


FO 
FC 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
00 
o1 
7C 
37 
15 
00 
OF 


A 


FF 
FF 
FF 
FF 
O1 
00 
OO 


00 


7F8 


7F8 


7F8 


7F8 


7F8 


7F8 


7F8 


6F9 


&6ED 


67E 


7F8 


7F8 


7F8 


7F8 


7F8 


400 


51 


7798 
77A8 
7748 
77B0 
7788 
77C0 
77C8 
77Dû 
77D8 
77E0 
77E8 
77FO 
77F8 
7800 
7808 
7810 


7818 


7840 
7848 
7850 
7858 
7860 
7868 
7870 
7878 
7880 
7888 
7890 
7898 


78A0 


52 
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O0 


O0 
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00 


O0 


O0 
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O0 


00 
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00 
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00 
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00 


00 
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08 


00 
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07 
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08 


20 


O0 


O0 


00 
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O0 


00 
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00 


00 


OC 
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O0 
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00 


C1 


C1 


09 


00 


78 


o1 


07 


O6 


00 


O0 


00 


O0 


00 


OÙ 


00 


O0 


O0 


O0 


00 


O0 


ED 


O0 


19 


OE 


19 


O0 


ED 


O0 


co 


08 


30 


18 


où 


Q0 


20 


06 


O0 


00 


où 


20 


00 


(ee) 


00 


GO 


O0 





O0 


EB 


78 


08 


OD 


EO 


O0 


00 


O0 


o00 


O0 


00 


O0 


[RTN] 


O0 


O0 


O0 


00 


O0 


07 


77 


00 


ED 


11 


06 
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O0 


oo 


O0 
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00 
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O0 


O0 


O0 


90 


aF 


38 
ot 
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00 


00 


00 


O0 


où 


60 


00 


O0 


O0 


OÙ 


O0 


O0 


OÙ 


Où 


75 


OE 


FF 


00 


78 


77 
C9 


76 


290 


179 


78A8 


78E0 


78H8 


78C0 


78C8 


78D0 


78D8 


78E0 


78E8 


78F0 


79F8 


7900 


7908 


7910 


7918 


7920 


7928 


7950 


7958 


7940 


7948 


7950 


7958 


7980 


7968 


7970 


7978 
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7988 


7990 


79798 


7FAÛ 


7988 


79E0 
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O1 


CD 


O0 
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26 
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C7 


CD 
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1E 
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00 
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O6 
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O9 


08 
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7E 
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D 
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GO 
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79F8 
7400 
7A08 
7A10 
7418 
7A20 
7428 
7A30 
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7A40 
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7h68 
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7A98 
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2F 


14 


1C 
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1C 
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O1 
FE 


O9 


10 
AD 
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C4 


OZ 


19 
78 
ED 
7E 


77 


OH 


09 


SE 


ÔE 


CD 


7B 
00 


77 


Cé 


78 


08 


OÙ 


Q0 


11 
10 


C9 


FE 
7E 


00 


CD 


00 


TA 


1E7 


17C 


40H 


23D 
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2B8 


Fute] 


247 


7AC8 


7ADO 


7AD8 


7AEQ 


7AES 


7AFO 


7AF8 


7808 


7810 


78H18 


7EH20 


7H28 


7B30 


7E:8 


7H40 


7E48 


7B50 


7ES8 


7B60 


77H68 


7H70 


7478 


780 


7EH88 


7H 


7E98 


7EHAO 


7EHAGS 


7EEO 


7RE8 


7ECO 


7TECS 


7EDO 
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O4 
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08 


O1 


11 


O4 
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08 
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4F 
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OH 


77 
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7C70 
7C78 
7C80 
7C88 
7090 
7C98 
7CAQ 
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7CD0 
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CE 
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Chapitre 2 


Logiciels 
de création 





Représentation de la Terre 
en 3D 





Ce programme est fait pour vous qui vous êtes toujours demandé 
quelle vue de la Terre avait Tintin lors de son voyage lunaire, ou 
Patrick Baudry à bord de la navette spatiale. Vous allez pouvoir 
visionner notre bonne vieille planète sous toutes ses coutures et 
sous ses angles les plus inaccessibles. Ce programme, en dehors de 
l'aspect esthétique, va vous permettre une approche de la 
représentation d’objets en 3 dimensions et un petit rafraîchissement 
de votre mémoire en ce qui concerne la géométrie. Attention ! Les 
professeurs Cosinus et Sinus sont de retour. Merci, Amstrabaudry ! 
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== Kepresentation graphique 3 D du globe terrestre === 


DEG: MODE 2:1INF OLO:INE 1,26: INE 2,18:INE 3,6: 
EORDER O:FAFER O:FEN 1 


INFUT'RAYON DU GLORE'":R 

INFUT'"'ANGLE DE ROTATION DE °A°";A 

INFUT'ANGLE DE ROTATION DE °E°'";:H 

INFUT'ANGLE DE ROTATION DE *C'";c 

INFUT"'ANGLE DU QUADRILLAGE":G 

INFUT'FACE  CACHEÉE (O0 ou N)'";A$% 

IF A$="0" THEN FC=1 ELSE IF A$="N" THEN FC=Q ELSE Si 
V=9 

J=SIN (OC) :H=COS (C) : HESIN (A) : MzCOS (A) 


MODE 1 


CLS: ORIGIN 220,200:MOVE K,0 
FOR 1=0 TO 360 STEF F 
DRAW RXCOS(I) ,R4SIN(I),7 


NEXT 





IF G=0 THEN $00 ELSE COL=E 


220 
230 
240 
250 
260 
299 


500 


560 


370 


380 


390 


600 


610 


899 


900 


FOR O=6G TO 36 STEF G 


T=i 


FOR L=-90 TO 90 STEF F 


GOSUER 910 


NEXT L:NEXT O 


T=1 


sessssesssz==s=====2== FARALLELES ===s=zszsszezezzz--zz-- 
FOR L=-90+6G TO 90-G STEF 6 
FOR O=-180 TO 180 STEF F 
GOSUR 910 
NEXT O:NEXT L 
sssesss==sssssememess (CONTINENTS =======z=zz=z-=zzzzzzz 


RESTORE : COL=1 
READ N.L,0 

IF N=O THEN 610 
T=i:GOSUR 910 


FOR I=2 TO NiT=0 


READ L,0 
GOSUE 910 
NEXT 


GOTO 520 


"FIN 


END 


"LECTURE COMFTEUR, LONGITUDE, LATITUDE 


FIN DES DONNEES ? 


LECTURE LONGITUDE LATITUDE 
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905 


910 G=SIN(O-E) : E=C0S (O-H) : U=COS (L) : W=SIN (L) 


920 Z=RX (WKHKE-UXOXJ+UXEXMXKE) "CALCUL DES 
950 IF Z£0 THEN T=i * COORDONNEES 
940 X=RK (UXOKE+WKHXJ+UXEXMXIJ ) * SFATIALES 


950 Y=RX (WXM-UXE*XH) 


IF T=0 THEN DRAW X,Y,COL ELSE IF FC=1i THEN FLOT X,Y,3 
ELSE MOVE X,Y TRACE 


970 T=0 


980 RETURN 


999 

1000 
1010 
1020 
1104 
1105 
1106 


1110 


1115 


1120 


1150 


1140 


1150 


1160 


1162 
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SKK OK KO AO AOC HE HONOR OK AO ACRONOHOKONONONAORHOOONE HCOCOCNACHC ECO AORC HO OCCOOIOK 


zsm=esse== COORDONNEES GEOGRAPHIQUES =ssrmmmmcese 


PKR AOKKONOK KO HCKOHO HACK HONOR OK NCAA AC OAONEOOCNOOCIK 


"XXX 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 





Europe *X*X* 


218,41,29,42,:5,41 
35,46,:7,44,54,45, 


38,42,4?,46,37,48,29,46, 
32,46,3%,47,31,42,27,41 





29,41,27,38,24,36,23,40,19,42,19 


45,15%,45,12,44,12,4%,13,42,14,40,18,40,17,29,16, 
39,17,28,15,28,12,26,15,39,16,40,15,41,1Z 





45,10,44,9,4%,6,43,4,42,3,42,3,19,0,78,0,76,-2, 


.—5,36,-5,27,-6,37,-9,38,-9,38,-9,41,-8 








42,-9,4%,-7,43,-1,46,-1,47,-2,48,-4,4B,-4,49,-3 


48,-1,50,-2,50,-1,49,-1,49,0,50,0,950,1,951.1,51,3, 
53,4,54,8,57,8,57,10,56,12,54,10,54,14 


55,20,59,22,60,:0,60,28,60,22,67,21,65,26, 66,22, 


61,17,60,19,56,16,55,13,59,10,58,7,58,6,67 


9.:64,10,70,19,71.27,68,41 


1164 


1165 


1166 


1170 


1175 


1180 


1185 


1190 


1192 


1194 


1195 


1196 


1200 


FXXX 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


xXXX 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA =: 


DATA 


DATA 


FXXX 


DATA 


Asie *x** 


b6,39,67,33:604,25,64,40,68.44,69,67,72,70,77,112, 
74,110,72,130,70,175,67,190,66, 177,63, 180 


60,170,60,163,55,142,51,157,57,156,62,165,462 


157,59,155,59,145,95,135,954,141,48,140,:9,1278,25, 
129,54,126,39,125,41,12 1:38, 118,30, 122,235 


117,21,110,22,108,19,105,14,109,11,109,8 


105,15,100,9,99,5,103,1,104,4,101.9,99,17.97,22, 
92,15,80,10,80,8,77,12,74,21,72,25,67,25 


06,:50,50,29,49,24,53,25,56,24,56,27,60,17,56,12 
Afrique *xx* 


44,28,35,28,23,15,40,10, 45,12,51,4,47,-5,59,-16, 


41,-20,35,-25,395,-26,23, 





-35 


5,20,-18.12 


-11,14,-1,9,3,10,4,8,4.6,6.4,5,-2,4,-7,8,-13,9 
-13,12,-16,15,-17,17,-16,21,-17,28,-17,20 


-9,31,-10,32,-10,33,-8 


34,-7,36,-6,36,-5,35,-4,25,-2,36,1,27,10,%6,10,37, 
11,36,10,35,11,34,10,33,12,23,13,22,1S 


cire ad On M RE à 





51,-5,53,-4,53,-3,55,-5,54,-5,57,-6,58,-5 


Iles **x* 


5,55,-6,54,-10,51,-10,52,-6,55, -6 
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1270 


1280 


1290 


13500 


1:04 
13505 
1306 


1310 
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DATA 


DATA 


DATA 6 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


XX 


DATA 


DATA 


DATA 


3 DATA 


DATA 


7,66,-22,65,-24,66,-16,85,:-135,63,-19,64,-22,66,-77 


10,45,9,42,8,41,9,41,10,79,9,39,8,41,8,41,9,4?, 
9,47,9 


,715,49,-17,44,-25,44,-25,47,-15,50,-13,49 





12,60,-44,85,-40,70,-27,82,-15,83,-70, 


78,-73,76, 
68,75,-59,70,-51,66, 61,-48,60, 44 






Œ 


. 








Ameriques *X** 





77,52, -56,50,-65,46,-64,47,-70,41,-70,40, 
,776,35,-75,71,-81,77,-80,25,-80,28 





—82,29,-82,70,-84,70,-89,29 






-90,29,-94,27,-97,7 
-90,21,-87,16.-89,15, 


-97,19,-96,1B,-94,19,-91,71, 
-83,10,-85,9,-81,9 


-79,8,-77,11,-75,12,-71,10.-63,4 


-52,0,-50,-6,-34,-12,-39,-22,-41,-25,-48,-28,-48, 
-41,-63,-51,-69,-55,-65,-55,-70,-50,-76 


—17,-74,-18,-70,-6,-81,0,-81,6,-77,9,-79,7,-81,9 


—85,17,-88,14,-91,16,-95,15,-96,197,-106,22,-105, 
BV STALE, .-113,31,-115,30, -114,23,-109 


24,-112,20,-116,%4,-118 


cr 0,39,-174,43,-124,48,-174,59,-1:0,61,-148, 
4,-165,59,-158,62,-166,68,-167,71,-157 


68,-110,70,-82,60,-95,54,-80,635,-77 


Iles du Facifique Xxxx 


22,—10,142,-17,141,-15,135,-12,177,-11,132,-15, 
129,-14,127,-20,120,-22,114,-26,115,-22 


116,-734,115,-35,118,-31,130,-22,123,-25 


135,-33,136,-35,177,-38,140,-39,143, 
7,150,-34,151,-32,152,-29,15 






153,-20,148,-19,146 


—14,144,-14,144,-10,142 


1:90 


1395 


1400 


1410 


1470 


1425 


1450 


1440 


1460 


1470 


1475 


1480 


1484 


1485 


1486 


1490 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


FXXX 


DATA 


29,-63,-56,-64,-60,-66,-65,-73,-75,-73,-85,-72, 
-100,-75,-100,-73,-125,-75,-137,-78,-165 





-77,164,-72,170,-68,155,-66, 135,-66,115,-66,90,-69 


75,-68,70,-66,55,-69,40,-70,20,-70,0,-71,-10,-74, 
€ 


20,-78,-55,-75,-60,-67,-61,-64,-59,-67,-55 


7:9:90,7,82,6,82,6,80,6,80,8,79,9,80 


22,45,142 


137,35,125 








145,42,143,4?,141,40,140,38,139,27, 


25,135,34,131,33,122,%1,1%1 
31,130,37,129 


34,121,74,135,33,135,%6,140,40,142,42,139,45,141, 
45,14? 


11,6,95,1,99,-3,101,-6,105,-6,114,-8,114,-7,105, 
-3,106,0,103,5,97,6,95 


b:21109,7,117,5,119,-4,116,-7,110,2,109 


11,:0,130,-2,141,-6,148,-7,147,-10,151,-7,144,-9, 
143,-8,138,-5,128,-4,133,0,120 


14,-74,172,-%6,176,-:7,176,-28,177,-27,178,-41, 
175,-40,172,-42,171,-46,166,-46,169,-40 


175,-39,174,-37,17S 
-34,172 


fin xxx 


0,0,0 


Pour le premier “RUN”... 


Ce petit paragraphe est fait pour les impatients qui ne pourraient 
pas attendre de lire la suite pour lancer le programme. Six 
questions vous sont posées au début de l’exécution. 


Pour commencer, le “rayon du globe” : ici, vous pouvez répondre 
de 0 à 199. 
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Pour les trois questions suivantes portant sur À, B et C, qui sont les 
angles de rotation autour des axes X, Y et Z, donnez une valeur de 


0 à 360 (degrés). 


Cinquième question, “angle du quadrillage” : nous vous conseillons 
un chiffre entre 20 et 50. 


Enfin, “face cachée (O ou N)” : là, comme indiqué, répondez par 
Oui ou par Non. 


Fonctionnement 


Pour commencer, un petit rappel de géométrie. Pour représenter 
un point dans l’espace, il faut trois coordonnées : les X, les Y et les 
Z. Les points sur une sphère sont à une distance constante du 
centre ; il suffit donc de deux informations pour en représenter un: 
les angles de latitude et de longitude. 







Rest le 
rayon de 
la sphère 


longitude 
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Les datas du programme sont constitués par ces angles, pour 
chacun des points des continents. Le programme convertit les deux 
angles d’un point en coordonnées 3D de type X,Y,Z. 


x=Rcos(lat) sin(long) 
y=Rsin(lat) 
z=Rcos(lat) cos (long) 


Vous pourrez orienter la Terre dans le sens que vous désirez. Pour 
cela, il faut jouer sur les trois angles de rotation suivants: X est 
l’angle d’inclinaison vers l’avant ; Y représente l’angle de rotation 
de la Terre autour de l’axe vertical; Z vous sert à basculer la Terre 
latéralement. Voir la figure pour mieux comprendre. 


Axe des Ÿ 










B:angle de rotation 
autour de Ÿ Dee 


Axe des X 


A 
| A 
Axe des Z \ / 
NZ 
T7 À: angle de rotation 
€ : angle de rotation autour de 


autour de Z 
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Le sous-programme matriciel se charge de calculer les nouvelles 
coordonnées des points visibles à l’écran. 


La matrice de rotation autour de l’axe des X vaut pour un angle de 
rotation A : 


1 0 0 
0 cos À -sin A 


0 sin 4 cos À 


La matrice de rotation autour de l’axe des Z vaut pour un angle de 
rotation C: 


cosC -sincC 0 
sin C cos C 0 


0 O 1 


Pour effectuer la rotation de B autour de l’axe des Y, il suffit de 
prendre pour longitude des points leur longitude moins l’angle de 
rotation B. 


x =Rcos(lat) sin(long-B) 
y'=Rsin(lat) 
z'=Rcos(lat) cos(long-B) 
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Pour trouver les coordonnées finales d’un point, il faut effectuer le 
produit matriciel des coordonnées x’,y’,z’ avec les deux matrices 
précédentes. Un point sera alors visible à l’écran si sa coordonnée 
en Z est positive (cas particulier de la sphère). 


La taille de la Terre est déterminée par le rayon, qui peut aller de 0 
(pour les bons voyants) à 199 ; avec ces valeurs vous obtiendrez la 
Terre entière mais il vous est tout à fait possible de dépasser 199 
pour faire un zoom sur une région du globe (pour voir, par 
exemple, l'épave du Rainbow Warrior près des côtes de Nouvelle- 
Zélande). 


Le dernier paramètre est celui de la face cachée. En effet, pour 
savoir si un point est visible ou non, on doit calculer ses 
coordonnées. S’il se trouve sur la face de la Terre non visible à 
l'écran, il ne sera pas affiché si vous avez répondu négativement à la 
question. Sinon, les continents sur la face cachée seront en pointillé 
rouge. Ceci vous permettra, par exemple, de vous rendre compte 
que si l’on creuse un trou qui passe par le centre de la Terre pour 
arriver de l’autre côté, ce ne seront pas des Chinois qui vous 
chasseront à coups de pelle ! 


Commentaire sur le programme 


De la ligne 45 à la ligne 70, vous trouverez l’initialisation et les 
questions. 


De 100 à 150, le tracé du contour qui n’est autre qu’un cercle. 


De 200 à 350, les méridiens et les parallèles. Vous remarquerez les 
lignes 250 et 340 qui sont les appels au sous-programme matriciel 
qui permet, dans ce cas-ci, de déterminer si les points sont sur la 
face cachée. 


La partie du programme permettant l’affichage des continents se 
trouve entre les lignes 500 et 610. Le READ en 520 lit le compteur 
de couple de données, les longitudes et latitudes du premier point. 
De 550 à 580, boucle de lecture et appel au sous-programme 
matriciel. 
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Le sous-programme matriciel va de 900 à 980. 


Enfin, à partir de 1000, les coordonnées géographiques. 
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Synthétiseur de recherche 


Que tous ceux qui aime la musique se lèvent. Amateurs de sons 
nouveaux et de rythmes d’enfer, le clavier de votre AMSTRAD va 
se transformer en clavier musical ! Ce programme permet de jouer 
les mélodies de votre choix mais surtout de créer de nouveaux sons 
à faire pâlir Michael Jackson (!). Les plus courageux composeront 
les nouveaux titres du Top 50 et, je l’espère, penseront à nous pour 
les droits d’auteur…. 


Les fonctions SOUND, ENT, ENV hantaient votre sommeil ? Ce 


programme va vous rendre les nuits paisibles et douillettes. Merci, 
Amstrafunk ! 
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SYNTHETISE 





JR DE RECHERCHE == 





sssmessmss QU L'ENFANT DU ROC = 





Gr MODE Le INE 0,08 1NE 1, 13 INE 21e INE SG, 1 


&0 HORDER Os: FAFER Ces FEN 


Jo 


115 


Re) 


19% 
oO 
208 
#0 
TO 
2450 
mt) 
60 
70 
280 
90 
999 
1000 
1005 
1010 
1020 
1070 
1040 


1950 
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Fields F (ele F (D) alger (d)elsF (GS) el: F(é6)=0 


MAXT (107 MAXI CE 
Max Lin = 15: MAXI (C8) =T 






eos MAXT CE) = 15: MAXI (4) =1S: 
i 





OTAVE= 0: Fa 


GOSUH So00Û 


inmmmmecenme PRESENTATION 





LÜOCATE 1,8 2: FRINT'CANAL "aF (1) 
LOCATE 1,10: FRINT'DUREE MRC) 
LOCATE 1,12: FRINT'"VOLUME "FCS) 
LOCATE 1,14: FRINT"'ENVELOFFE DE VOLUME  ",F(4) 
LOCATE 1,16: FRINT"'ENVELOFFE DE TONALITE",F (5) 
LOCATE 1,16: FRINT'PFERIOCE EHRUIT "AF{6)s:FEN 1 
LOCATE 1,20: FRINT'OUTAVE ", OCTAVE 


LOCATE 





: FRINT'FERIODE SONORE "4 FERIODE 


AS=INFEYS:1F A$="" THEN 1010 ELSE A=ASC (AS) 

GOSUR 2000: GOSUE Z3000:GOSUR 4000:1F NOTE=O THEN 1010 
FREO=440% (2: (OCTAVE+ C(NOTE-10)/12))) 

FERIODE=ROUND (128000/FRE0O) 


LOCATE 27,Z22:PFEN 1:PFRINT FERIODE" ‘3 


1106 SOUND F (1), FERIODE, F (2) PF CH) ,F (45 ,F (5) ,F (C6) 


CLEAR INPUT: GOTO 1060 





1995 





TEST CLAVIER DES TOUCHES semssssssmmmmeese 


200 








sul RESIURE «le 


FOR NOTE=L TO LésREAD Es iF INEEY CE 80 THEN RETURN 





NEXT NOTE 





454, 44,46, 4, He 








MODIFICATION DES FARAMETRES sessar 








OF 3 THEN RETURN 





AND F1 THEN FeP-1 


AND Fié THEN F=F'+1 





2O40 IF AND FF) 30 THEN FFF CF) 1 





5060 IF AeT4S AND F(F)EMAXI (FO) THEN FF) FF) 41 


100 LOCATE 27, 6+FPXS: PEN Ze FRINT FFF) 3 





do LOCATE <otPXS: FEN PRINT FF) 3 
H120 RETURN 


3999 





CHANGEMENT  D°OCTAVE 





4000 es 
4005 
4010 IF 4€49 OR AcSé THEN RETURN 

4020 UCTAVESA-SE 

4050 LOCATE 27,Z20:FEN 1:FRINT OÛTAVE: 


4040 RETURN 


81 


4999 





SO essz [N]TIALISATION DES ENVELOFFES DE TONALITE === 
300S 


9010 





3020 





Sade 20% 30 


3040 ENT 4,10,100,5,10,100, 10 
SOSO0 ENT S,100,-100, 2 
o499 


S900 æesæx [NIFIALISATION DES ENVELOFFES DE VOLUME =ezersze 


9910 ENV H,1S,-1, 10,18, 1,10 
SS20 ENV. SZ, 20,5, 1 
5530 ENV 3,10,15,30 
9940 ENV 4,5,-10,10 
9990 ENV 5,100,-1,1 


93900 RETURN 


Attribution des touches 


Le clavier, pour ce programme, est découpé en trois groupes de 
touches : 
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— les touches pour le clavier musical 


J00000000Û 

O00O0COOUOO 

J)BB0CBWOC 

TEE 
| 





# | # 
L|1 L|1 





DO || 8 || ii || HA |ISE || LA || BU 


— les touches de changement d’octave 


PR 


_ _ _ 
s)E)) 
_ _ 
N o1 
— ES 
656 
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— les touches de sélection des paramètres et de réglage 


Flèches du haut et du bas: 
sélection du paramètre à modifier 


Flèches de droite et de gauche: 
augmentation ou diminution du 
paramètre sélectionné. 





Fonctionnement 


A la mise en route du programme, vous verrez apparaître tous les 
paramètres de la fontion SOUND. Ceux en gris sont modifiables 
avec les touches directionnelles, ceux en orange avec les touches de 
fonction pour les octaves, avec le clavier alphabétique pour la 
période sonore. 


Cinq enveloppes de volume et cinq enveloppes de tonalité sont 
programmées, allant de 1 à S. 


Voici quelques exemples de sons: 


ECC] 
ÉCCTCUENERENENERE 


CCORMMESESESESENEE 
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Commentaire sur le programme 


— De la ligne 50 à la ligne 130: initialisation avec, en 110, les 
variables contenant la valeur maximum de tous les paramètres. 


— 220 à 290: affichage de la page écran. 


— 1010 à 1200 : programme principal. La ligne 1020 fait les appels 
aux différents sous-programmes de tests. La période sonore est 
calculée, la note est jouée, puis la variable PERIODE est 
réaffichée. Remarquez en 1200 le vidage du buffer qui a tendance, 
dans ce genre d’application, à embrouiller quelque peu le génie 
créatif de l’artiste. 


— 2010 à 2100: test sur les touches du clavier musical. La boucle 
sur la variable NOTE permet de savoir si une touche a été enfoncée 
et à quelle note elle correspond. Le test se fait ici sur le numéro de 
la touche et non sur son caractère ASCII. 


— 3006 à 3120: modification des paramètres avec les touches 
directionnelles. La ligne 3010 effectue un RETURN si la touche 
enfoncée n’est pas une touche directionnelle. Les deux tests 
suivants portent sur les touches de sélection des paramètres (flèche 
haut et bas). Parvenu au paramètre désiré, l’incrémentation et la 
décrémentation de celui-ci se font avec les touches droite et gauche. 
Notez en 3050 le test évitant le dépassement de la valeur maximum 
pour le paramètre (variable MAXI()). Dernière opération: la 
nouvelle valeur est affichée. 


— 4010 à 4040 : changement d’octave. L’octave prend la valeur du 
code ASCII de la touche numérique enfoncée moins 52. 


— 5010 à 5050: initialisation des enveloppes de tonalité. 


— 5510 à 5550: initialisation des enveloppes de volume. 
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Tebleau des variables du synthétiseur 
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Editeur graphique 


“La peinture est le métier le plus long et le plus difficile. II lui faut 
l’érudition comme au compositeur, mais il lui faut aussi l’exécution 
comme au violon.” (Eugène Delacroix) 


Lors de cette déclaration, Delacroix ne pouvait penser un instant 
qu’un siècle et demi plus tard le dessin deviendrait accessible à tous 
les possesseurs de micro-ordinateurs. Adieu! pinceaux, brosses, 
toiles et gouaches. Le processeur vous envoie au rebut. Merci, 
Amstrapicasso. 
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Version pour 664 et 6128 : 














10 RRRRTIEZEE==ESSSSSESEZSSSSSI IIS SM M Ne Me me DOS D ee 
20 zzzsse=szzz EDITEUR GRAFHIQUE =z=z=zzzzzzzzzseszsezesesezsesz 
40 === RERETECONELSLSSRSSSSSSemEeSS 


SQ MODE 1:BORDER 9 

100 ’=z====s= INITIALISATION === 
110 FHS(1)="TRAIT CONTINU " 

120 FH$(2)="FOINT FAR FOINT" 

1570 FH$(35)="GOMME CONTINU " 

140 FH$(4)="GOMME FOINT F/F" 

150 FH$(S)="FIGURES GEO.  " 

160 D$(1)=" LENT " 


170 D$(2)="RAFIDE" 


HOO essensesse REDEFINITION DES CARACTERES ==2z=mecsemense 
ET 
910 SYMEROL AFTER 190 


520 SYMEOL 200,0,0,0,0,0,0,0,0 





SYMEOL 201,23,12,16,327,64,64,1278,128 

540 SYMEOL 202,192,48,8,4,2,2,1.1 

550 SYMEOL 207,128,128,64,64,32,16,12,% 

560 SYMEOL 204,1,1,2,2,4,8,48,192 

570 SYMBOL 205,0,1,1,2,2,4,4.8 

580 SYMEUL 206, 128,128,64,64,37,16,16,8 

590 SYMEOL 207,16,16,32,32,64,64,128,255 

600 SYMEOL 208,8,.8,.4.4.2,2,1,255 

610 SYMEOL 209,255,1278,128,128,128,126,128.128 
620 SYMEOL 210,255,1,1,1,1,1,1,1 


620 SYMEOL 211,128,128,128,128.128,128,128,255 
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640 SYMBOL 212,1,1,1,1.1.1,1,255 
6950 SYMEAOL 217,5,15,67,65,127,127,29S8,2SS 


660 SYMBOL 214,192,240,252,2952, 254,254, 255,255 


670 SYMROL 215,2959,2S5, 1 


Le] 


7:127,63,63,15,35 

680 SYMEOL 216,255,2955,254,254,252,2952,240,192 
690 SYMEAOL 217,0,1,1.,3.3,7,7,1S 

700 SYMEOL 218,0,128,128,192,197,2274,224,240 
710 SYMEOL 219,15,31,731,67,63,127,127,258 
720 SYMEOL 229,240,248, 248, 252, 252, 254,254 
730 SYMEOL 221,259, 299. 299,299, 299: 299: 299 209 


740 SYMEOL 222,1,2.,4,8,16,:32,64,178 


800 F16$(3)=CHR$ (201) +CHR$ (202) +CHR$ (10) +CHRS (8) +CHRS (8) + 
CHRS (207) +CHR$ (204) 


810 F1G$(5) =CHR$ (205) +CHR$ (206) +CHR$# (10) +CHRS (8) +CHRKS (8) + 
CHRS (207) +CHR$# (208) 


20 FIG$(1)=CHR$& (209) +CHRS$ (210) +CHR$ (10) +CHRS (8) +CHRS (8) + 
CHRS$ (211) +CHR$ (212) 


830 FI1GS$ (4) =CHRS (2123) +CHRS (214) +CHRS (10) +CHRS (8) +CHR$ (8) + 
CHR$# (215) +CHR$ (216) 


940 F1G$ (6) =CHR$& (217) +CHR$ (218) +CHR$ (10) +CHR$ (8) +CHR$ (8) + 
CHRS$ (219) +CHR$ (220) 


850 FIG$ (2) =CHR$ (221) +CHR$ (221) +CHRS$ (10) +CHRS (8) +CHRS (8) + 
CHK$ (221) +CHR$ (221) 


860 F16G$4(7)=CHR$ (200) +CHK$ (222) +CHRS (10) +CHRS$ (8) +CHR$ (8) + 
CHKS (222) +CHRS$S (200) 


870 GOTO 10900 


900 ON FORME GOSUR 1000,2000,:000,4000,5000,6000,7000, 
7100,7200,72300 


910 RETURN 


1000 ‘=s==ses2== HOITE VIDE =====-====-2222==2====2222222= 
1010 ° 

1020 MOVE X1,Y1 * FOSITIONNEMENT DU CURSEUR GRAFHIQUE 
1050 DRAW X2.,Y1,COL "TRACE DES QUATRE LIGNES 
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1040 
1050 
1060 
1500 
1999 
2000 
2010 
2020 
2030 
2040 
2500 
2999 
5000 
F010 
5020 
FOTO 
3040 
3050 
2500 
39799 
4000 
4010 
4020 
4050 
4500 
4999 
5000 
9010 


5020 


90 


DRAW X2,YZ 





DRAW X1,YE RELIANT LES QUATRE ANGLES 

DRAW X1,Y1 

RETURN 

ezs=ssse2z HOITE PLEINE ==zz=zzseemezmesesseeemmmmmes 
GOSUR 1000 TRACE DE LA ROITE VIDE 
MOVE (X1+X2)/2, (Y1+Y2)/2 “CALCUL DU CENTRE 

FILL COL 

RETURN 

“=zzszzzzz= CERCLE VIDE ===zszzzzzsssesesssesesmessesezmes— 
DEG: MOVE X1+R,Y1 *FOSITIONNEMENT DU CURSEUR 
FOR 1=0 TO 360 STEF 10 TRACE DU CERCLE AVEC DES 
DRAW X1+RXCOS(I),Y1+RXSIN(I),COL 

NEXT LIGNES TOUS LES 10 DEGRES 
RETURN 

zzzzse=sz2zs= CERCLE PLEIN ====sezezzseseseseenesnesmemumxme 
GOSUR 3000 © TRACE DU CERCLE VIDE 

MOVE X1,Y1:FILL COL * REMFLISSAGE 

RETURN 

zzzzzzzzzz= TRIANGLE VIDE ===zzzsseseseessemmezsememmes 
MOVE X1,Y1 * FOSITIONNEMENT DU CURSEUR 


5050 
5040 
5050 
SOU 
3999 
8000 
6010 
4020 
8030 
éo4o 
68500 
6999 
7000 
7005 
7010 
7020 
7050 
7099 
7100 
7105 
7110 
7120 
7199 
7200 
7205 


7219 


DRAW X2,Y2, COL "LIAISON DES 

DRAW X3,YZ "TROIS ANGLES 

DRAW X1,Yi "FAR DES LIGNES 

RETURN 

renmeermesces TRIANGLE FLEIN =====s====e=ez==msez=22ezz2ez 
GOSUR 5000 "TRACE DU TRIANGLE VIDE 


MOVE (X1+XP+X2) /3, (YI+Y2+Y3)/3 CALCUL DU CENTRE 


FILL COL "DU TRIANGLE FUIS 
RETURN * REMFLISSAGE 
esssssszszz [LIGNE ====es=2esrssezs=ssssssssERRRESSSESSSESE 


MOVE X1,Y1 
DRAW X2,VY2,C0L 


RETURN 


FLOT X1,Y1,COL 


RETURN 


MOVE X1,Y1 
FILL COL 


RETURN 
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73510 DRAW X1,Y1,COL 


7220 RETURN 











9999 

10000 ee ——— 
10010 =sez=zssses PROGRAMME FRINCIFAL ===szszesoseesenenese 
10020 mo — me 


10025 

10070 GOSUER 20000 

10040 COL=1:COLM=1: COLF=0: X=320: Y=200: MD=1: FORME=7 : DP=1 
10099 * 

10100 fez=sssssss TEGT CLAVIER ===zssesemsmessenesessesemese 
10105 * 

10110 AS="":WHILE A$="":AS$S=INEEYS: GOSUR 18000: WEND 
10120 A=ASC(UFFERS (A$S)):IF A:779 AND A:244 THEN 10500 
191270 IF A=68 THEN GOSUR 17000 

16140 IF A=G1 OR A=65 THEN GOSUER 16000 

10150 IF A=32 THEN GOSUR 15000 

16160 IF À=90 OK A=88 THEN GOSUR 14000 

10170 IF À=49 OK A=50 THEN GOSUR 13000 

10180 IF A=17 THEN GOSUER 12000 

10190 IF 4=17 THEN 11900 

10200 GOTO 10110 

19500 FX=CC(A=Z42) -(A=243)) XDF) 2 

108519 FY=(CC(A=241)-(A=240)) XxDF) x2 

108520 XPF=X+FX:YPF=Y+FY 

108520 IF XF£O OK XF:640 OR YF£102 OR YF:400 THEN 10110 


10540 IF MD=1 OK MD=3 THEN FLOT X,Y,COI. 
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10550 


10560 


10570 


10999 


11000 


11005 


11010 


11020 


11050 


11040 


11050 


11060 


11999 


12000 


12005 


12010 


12020 


12030 


12999 


157000 


15005 


15010 


17020 


15050 


13040 


15050 


13060 


13999 


14000 


FEN 1:X=XF:LOCATE 38,223: FRINT MIDS(STRS&(X),2) 
Y=YPF:LOCATE 38,24:FRINT MIDS$(STRS(Y),2) 


GOTQO 10110 


WINDOW #O,1,40,19,25: CLS 

FRINT'FREFAREZ LA DISQUETTE OÙ LA CASSETTE." 
FRINT"'AFFUYEZ SUR *ENTER®." 

WHILE A$="":AS=INFEYS : WEND 

CLS: SAVE"! IMAGE", H, 8CO00,83FFF 


END 


IF MD£#S THEN RETURN 


ON FORME GOSUR 19400,19400,19100,19100,19200, 19200, 
19400 


RETURN 


es=s=ssse== SELECTION DES FORMES GEOMETRIQUES =z==z2=# 


IF FL THEN RETURN 






FEN 1:LOCATE 14+FORMEXZ, ZT: FRINT F1G$ (FORME) : 
IF 4=50 AND FORME£:7 THEN FORME=FORME+1 


IF ÀA=49 AND FORME<:1 THEN FORME=FORME-1 






FEN 3: LOCATE 14+FORMEXZ : FRINT F1G$ (FORME); 


RETURN 


Feesemmeces CHANGEMENT DE COULEUR ===ec=sezezemesnuz= 
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14005 
14010 
14020 
14070 
14040 
14050 
14060 
14070 
14080 
14090 
14999 
15000 
15005 
135010 
15020 
15030 
15999 
16000 
16005 
186010 
168020 
18030 
16040 
16050 
18060 
16070 
16080 
16999 


17000 
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IF MD=5 OR MD=4 OR FL THEN RETURN 


X1=(1:5%X16)+(COLX3X16)—-3: X2=X1+277:V1= 


COLF=COL:COL=1:FORMEF=FORME : FORME=1 : 


FORME=FORMEF : COL=COLF 
IF A=88 AND CQL##4 THEN COL=COL+1 


IF A=90 AND COL*:;1 THEN COL=COL-1 


X1= (125416) +(COLXIKk16)-7s: X2=X1+37:Vi= 


COLPF=COL : COL=S: FORMEF=FORME : FORME= 1 : 


FORME=FORMEF: COL=COLF : COLM=COL 


IF MD=i OK MD=3 OR MD=S THEN RETURN 
FLOT X,Y,.COL 


RETURN 


"=s==s=22== CHANGEMENT DE MODE ===== 


IF FL THEN RETURN 


61:Y2=98 


GOSUR 900 


bi:YZ2=98 


GOSUH 900 


LOCATE 1,19+MD:PFAFER O:PEN 1:PRINT FH$ (MD) 


IF À=6S AND MD“#:5 THEN MD=MD+1 


IF A=81 AND MD#*1 THEN MD=MD-1 


LOCATE 1,19+MD:FAFER Z:FEN 1:PRINT FH$ (MD):FAFER © 


COL=COLM 


IF MD=5 OR MD=4 THEN COLM=CQL:COL=COLF 


RETURN 


17005 


17010 


17020 


17030 


17999 


18000 


18005 


18010 


18020 


18030 


18040 


18998 


18999 


19000 


19001 


19099 


19100 


19105 


19110 


19120 


19150 


19150 


19160 


19161 


19162 


19163 


19170 


19180 


LOCATE 32,21:FEN 1:PFAPER 3 
IF DF=i THEN DP=8:PRINT D$(2) ELSE DP=1:FRINT D$(1) 


PAFER ©:RETURN 


COLI1=TEST(X,Y) 

IF COL1=COL THEN INC=1 ELSE INC=0 
FLOT X.Y,COL+INC 

PLOT X,Y,COL1 


RETURN 


essess=zez= AFFEL DES SOUS-ROUTINES GRAPHIQUES ==z=z= 


IF FL THEN 19150 
X1=X:Y1=Y:FL=1 

RETURN 

R=SOR CCX1-X) "24 (Y1-Y) 2) 
IF X1+R:640 THEN 19190 
IF X1-R£O THEN 19190 

IF YIi+R:400 THEN 19190 
IF Yi-Ri1072 THEN 19190 
GOSUE 900:FL=0 


RETURN 
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19190 FOR I1=û TO 10:LOCATE 1,2S:FEN 1:FRINT CHR#&(7): 


19195 FRINT'CERCLE IMFOSSIBLE"::LOCATE 1,2S:PRINT SFC(20)3: 
NEXT I:FL=0: RETURN 


19199 

19200 ‘=zzzzzzzzz TRIANGLE ========sezzsesesessssppeessesecez 
19205 

19210 IF FL THEN 19250 

19220 X1=X:Y1=Y:FL=1] 

19230 RETURN 

19250 IF FL2 THEN 19:00 

1926 X2=X:V2=Y:FL2=1 

19270 RETURN 

19:00 XT=X:VY3=Y: GOSUR 900:FL=O:FLI=0 

19510 RETURN 

19:99 

19400 =======z== LIGNE ET HOITE ======sesssessesesesesezss 
19405 * 

19410 IF FL THEN 19450 

19420 X1=X:Y1=Y:FL=1 

194750 RETURN 

19450 X2=X:Y2=Y:GOSUR 900:FL=O 

19460 RETURN 

19999 

20000 ‘=====2==2== AFFICHAGE DE LA FALETTE =zz=zzzezessezszss 
20005 *? 

20010 FOR 1=1 TO 6 

20020 LOCATE 14+IX3,23:PFRINT FIG$(1); 

20030 NEXT I 

20040 FEN Z:LOCATE 25,23:FRINT FIG$(1)::FEN 1 


20100 X1=(13XKX16)+(1X3Kk16)-3: X2=X1+37:Y1=61: Y?=98 
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20110 


FORME=1:COL=Z:GOSUE 900 


20120 LOCATE 17,2ZO:FEN 1:FRINT FIG$(2);: 


201350 


) 


FOR 1=2 TO 4 


20140 LOCATE 14+IX3,20:FEN I:FRINT FIG$(2); 


20150 X1= (13x16) +(CIKX3K16) -Z: X2=X1+37:Y1=61:Y2=98 


20160 FORME=1:COL=1:GOSUE 900 


20170 NEXT I:PEN 1 


20200 


20210 


20220 


LOCATE 1,20:FAFER Z:FRINT FH$(1)::PAFER © 


» FOR 1=2 TO 5 


LOCATE 1,19+I:PFRINT FH$&(I): 


20230 NEXT I 


20300 


LOCATE 29,20:FRINT'"DEPLACEMENT : " 


20310 LOCATE 32,21:FEN 1:FAPFER 3:FRINT D$(1):PFAFER © 


20500 


RETURN 


La fonction FILL n’existant pas sur le 464, il existe des 
modifications pour cette machine : 


1000 


1910 


1020 


1070 


1040 


1050 


1060 


1500 


1999 


2000 


2010 


2020 





renscesesezz HOITE VIDE ===2=2272722=2=2Ss========R==sSS=== 
MOVE X1,Y1,COL "FOSITIONNEMENT DU CURSEUR GRAFHIQUE 
DRAW X2, V1 TRACE DES QUATRE LIGNES 

DRAW X2,YZ 

DRAW X1,Y2 "RELIANT LES QUATRE ANGLES 

DRAW X1,Yi 

RETURN 

eses=ssss= HOITE FLEINE ===2==2=2=2========2=====zz======-= 
IF Y1:Y2 THEN F=-i ELSE Fzi "FAS NEGATIF SI Y1:Y2 
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2020 FOR Y=Y1 TO Y2 STEF F 


2040 MOVE X1,Y:DRAW X2,Y,COL 


20950 NEXT 
2500 RETURN 


2999 
== CERCLE VIDE 
5016 

3020 DEG:MOVE X1+4R,Y1 

3030 FOR 120 TO 


360 STEF 10 


* HOUCLE DE 


© REMFLISSAGE 


* FOSITIONNEMENT 


DU CURSEUR 


TRACE DU CERCLE AVEC DES 


30407 DRAW X1+RKXCOS CI) ,Y1+RXSIN(I),COL 


2080 NEXT 


3900 RETURN 


2999 


PUNIRIS] 





4010 
020 FOR I=-K TO K 
OZ 


SESCR CCRKRI — CIXI)) 


4040 ORIGIN 


CERCLE FLEIN 


"LIGNES TOUS LES 10 DEGRES 


X1,Y1+I1:DRAW S,0,C0L 


4050 ORIGIN X1,Y1+1:DRAW -S,0 
4Uéo NEXT I 

4500 RETURN 

4999 

SOO0 esezszezezz TRIANGLE VIDE 


35010 


3020 MOVE X1,Y1 


3050 DRAW 


XZ, Y2, COL 
5040 DRAW X3,YZ 


5050 


DRAW X1,Y1 


39300 RETURN 
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© FOSITIONNEMENT DU CURSEUR 
"LIAISON DES 
"TROIS ANGLES 


FAR DES LIGNES 


5999 * 


8000 





enmesesssse TRIANGLE FLEIN ===z2ezeezezez2zz2-2-2-2- 


6010 * 


6020 


8070 


6040 


6050 


CTRISTS] 


8070 


6100 


éil10 


6120 


6170 


6150 


6160 


6200 


6210 


CRT 


6310 


6500 


6999 


A={Y2-Y1)/(X2-X1) 
H=(X2XYI-X1XY2)/ (X2-X1) 
Ai=(Y2-Y3) / (X2-X27) 

Ri= (XEXVIE-XIEKVE) / (XE-XT) 
AZ=(Vi-YI) /(X1-X7) 

Hz CXIKYI-XEXY1) / CX1-X7) 
EBF=H 

E= C(AXA-1) /SOR (AKAKAKXA-AKA +1) 
ÉEEX 1 

E=-0. Ss BP=RF-E 
XS1=(CR1-HF) / (4-41) 
YSI=AXXSI+EF 

XSZe (BEF) / (A-AZ) 
YSZSAXXSG2I+EF 

MOVE XS1,YS1:DRAW XS7,YS2,COL 
IF XS1:X2Z THEN 6150 


RETURN 


Mode d’emploi 


L'écran est divisé en deux grandes parties : la zone de dessin, située 
dans la partie haute de l’écran, et la palette proposant toutes les 
options de travail. 

Le dessin étant réalisé en MODE 1, vous ne disposez que de quatre 
couleurs et la définition sera de 320 pour les X et 150 pour les Y (la 
palette utilise 50 pixels en hauteur). Le déplacement du pixel de 
travail se fait avec les touches directionnelles. Deux allures sont 
possibles : pixel à pixel ou de huit en huit. La touche D fait basculer 
entre les deux modes. 
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Deux repères numériques sont prévus sur la droite de la palette, 
représentant pour le plus haut les X et pour le plus bas les Y. Ces 
valeurs peuvent vous être utiles lors de la création de dessins 
exigeant une grande précision. 


La couleur de travail est entourée par un carré rouge. Les touches 
Z et X permettent l’accès aux autres couleurs de la palette. 


Cinq modes de travail sont à votre disposition : 

— Trait continu: tracé des pixels en continu. 

— Point par point: ici, il faut valider les points avec la barre 
d’espacement. 

— Gomme en continu: efface des pixels en continu. 

— Gomme point par point: il faut valider pour effacer. 

— Figures géométriques : donne accès aux figures géométriques. 


La sélection d’une forme géométrique se fait avec les touches 1 et 2, 
la forme validée étant en rouge. Les différents points nécessaires 
pour le tracé d’une forme seront validés avec ENTER. Dès que le 
premier point a été entré, les changements de mode et de couleur 
sont bloqués, évitant ainsi de fausses manœuvres. 


Une fois le dessin terminé, sa sauvegarde est possible sous forme de 
bloc binaire représentant la mémoire écran. Appuyez simultané- 
ment sur CTRL et Q pour cette séquence. La restitution du dessin 
se fera par LOAD”'!'IMAGE”. 


COULEURS PAS DU DEPLACEMENT 











DEPLACEMENT: 








POINT PAR POINT 
GOMME EN CONTINU 
GOMME POINT P/P 
FIGURES GEO. 


MODE DE TRAVAIL FORMES BEOMETRIQUES CODRDONNEES X et Ÿ 
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Fonctionnement du programme 


— L’initialisation des variables utiles au programme se fait avec les 
lignes 110 à 170. 


— Lignes 510 à 740: redéfinition des caractères. Ils sont ensuite 
associés en chaînes pour former les dessins des figures géométri- 
ques. 


— 1000 à 1500: tracé d’une boîte vide. 


— 2000 à 2500 : tracé d’une boîte pleine. La création d’une figure 
pleine se fait, pour les 646 et 6128, par le remplissage de la forme 
vide. Pour le 464, c’est un algorithme qui trace la figure. 


— 3000 à 3500: cercle vide. 

— 4000 à 4500: cercle plein. 

— 5000 à 5500: triangle vide. 

— 6000 à 6500: triangle plein. 

— 7000 à 7030: tracé d’une ligne. 


— Le programme principal commence par l’appel au dessin de la 
palette (ligne 10030), puis toutes les variables sont initialisées. 


— 10110 à 10200: test clavier réalisé sur le caractère ASCII de la 
touche enfoncée, après l’avoir passée en majuscule (UPPERS$). 


— 10500 à 10540 : déplacement du pixel de travail avec, en 10530, 
les tests évitant au point de sortir de l’écran. Les lignes 10550 et 
10560 affichent les coordonnées X et Y. 


— 11000 à 11060 : sauvegarde de l’image sous forme de bloc binaire 
et fin de l’activité. 


— 12000 à 12030: ON GOSUB aux sous-programmes gérant les 
formes géométriques. 


— 13000 à 13060 : sélection des formes géométriques. Le test sur 
FL exécute un RETURN si cette variable est à 1 (ce flag est à 1 
quand une figure géométrique est en cours, ceci bloque ce choix et 
évite ainsi au programme de se perdre dans ses repères). Ce sont les 
touches 1 et 2 (ASCII 49 et 50) qui servent à la sélection. 


— 14000 à 14090: sélection de la couleur de travail. 
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— 15000 à 15030: point par point. Test en 15010 sur le mode de 
travail. Si le mode est Point par point ou Gomme point par point et 
que la touche Espace est enfoncée, on trace un point aux 
coordonnées X,Y. 


— 16000 à 16080 : changement de mode de travail. Comme dans la 
sélection des formes géométriques, ce choix est bloqué lors du tracé 
d’une figure. 


— 17000 à 17030 : vitesse de déplacement du pixel de travail. La 
variable DP contient le pas de déplacement qui peut être égal à 1 ou 
à 8. 

— 18000 à 18050: clignotement du pixel de travail. Sa couleur 
alterne entre la couleur de travail et la couleur du papier. 


— 19100 à 19195 : mise en mémoire des deux points pour le tracé 
d’un cercle. Il faut d’abord entrer le centre puis le rayon. Les tests 
des lignes 19160 à 19163 déterminent si le cercle est possible, sinon 
un message apparaît (ligne 19195). L'appel à la routine de cercle se 
fait en 19170. 


— 19200 à 19310: mise en mémoire des trois points pour le tracé 
d’un triangle. 


— 19400 à 19460 : mise en mémoire des deux points pour le tracé 
d’une boîte ou d’une ligne. Cette routine est commune pour les 
boîtes et les lignes car ces deux figures ne demandent que deux 
points de même type. 


— 20000 à 20500: affichage de la palette. Lignes 20010 à 20040: 
affichage des formes géométriques. 20100 à 20170: palette de 
couleurs. 20200 à 20230 : affichage des modes de travail. 20300 à 
20310: déplacement. 
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Pour toutes les formes 
COL contient la couleur du motif 
Pour les boîtes 


X1 contient les x d'extrême droite 
NE " y les plus hauts 

X2 “ “ "x d'extrême gauche 
V2 " yles plus bas 


Pour les cercles 


Tracé de formes géométriques Tableau des variables 












X1 contient les x du centre 
YA © À " y du centre 
R " "le rayon du cercle 


Pour les triangles 


X1 contient les x du premier angle 
















à CRE "y 

X2 “ “ “ x du deuxième angle 
RER DS NES 2 
X3 “ “ "x du troisième angle 





dE à "y 


Pour les lignes 


X1 contient les x du premier point 
CR ni 
X2 “ “ “ X ” deuxième point 
NA 17 JE Gale d 
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Code d'accès aux figures géométriques 


La Variable FORME permet la sélection de la figure 
choisie. Elle doit contenir : 







1 pour une boîte vide 
D: ne À pleine 
3 un cercle vide 

4 plein 
5 ‘“ untriangle vide 
6 “ ” 
7 








plein 
une ligne 
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Chapitre 3 
Utilitaires 
































Redéfinition du clavier 


Voici maintenant un utilitaire que nous avons pris l’habitude 
d’exécuter avant de nous mettre à travailler sous BASIC. Il va vous 
permettre d’avoir accès aux principaux mots clefs du BASIC en 
appuyant uniquement sur deux touches. Je m’explique : actuelle- 
ment, pour taper le mot “LOCATE” vous devez frapper toutes les 
lettres constituant ce mot, plus un espace pour séparer celui-ci du 
suivant, soit 7 pressions de touches. Désormais, l'instruction 
“LOCATE” s'obtient par CTRL-Z. 


Nous avons sélectionné les principaux mots clefs du BASIC et leur 
avons attribué une touche. Consultez le tableau pour connaître leur 
mode d’accès. 


Nous avons aussi pensé aux fonctions de mode direct du style 
“LIST”, “RUN”... En effet, les touches de fonction (f0 à f9) ont 
hérité de cette activité. Plus besoin de taper le code et “ENTER”, 
appuyez uniquement sur la touche correspondant au mot désiré. 
Merci, Amstradounet ! 
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So) 
G10 
Es M 
399 
ETRIR] 
US 
10 
620 
CT 
és 
CRTA) 
y 
AENTA. 
705 


#10 


740 
F0 
FTét 
#96 
SIRTS) 
TER 
SRE 
EC 
CRT 


td 0 
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=== TOUCHES ALFHABETIQUES ===msmemenesemsessons 


READ LS,N, CS 
ÉEY 1404+1,C$ 
ÉEY DEF N,1,ASC{(L#)+22,A5C(L#),140+1I 


NEXT 


= DATAS DES TOLICHES : 





DATA D,61,'"DELETE ",E,SS8,'"ELSE "FF 





GS POR. 






DATA GS SEE PGOMS TS ISQUIF "JS A4S, "THEN " 
DA FA NAS, UNEXT MF, PFRINT MR, SO, "READ " 
DATA S,60,"STEF MT, SAS "TO SU, 48, "DRAW " 


DATA V,S5S, "SOUND ",W,59,"LOCATE ",Xsé 





3, "FAFER " 


DATA Y,45,"SUR ",2,71. "BORDER " 


TOUCHES DE FONCTION seems 





BE  L, CRUE CHRS 1750) 


ÉEY 2 LIST "4CHRS (125) 


EE EL, MCLSM ILES € LES 


ÉEY 4, CON T'RCHRSE LES 


























NX g<AINTOVOZSENCTIE QUNMU OX 





Touches de fonctions 


Non attribuée 





DELETE 

ELSE 

FOR 

GO 

Non attribuée 
IF 

THEN 

Non attribuée 





NEXT 
Non attribuée 
PRINT 

Non attribuée 
READ 

STEP 

TO 

DRAW 

SOUND 
LOCATE 
PAPER 
SUB 
BORDER 
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Commentaire sur le programme 


Comme vous pouvez le constater, ce programme est contruit de la 
façon la plus simple possible. La boucle sur I (610 à 650) lit dans les 
datas la lettre, le numéro et le mot attribué à la touche. En 630, les 
touches de 141 à 159 sont redéfinies, puis elles sont associées aux 
touches clavier en 640 par la commande KEY DEF. 


De 800 à 840, ce sont les touches de fonction qui sont redéfinies. 
Ici, seule l'instruction KEY est utilisée. 


eee 
2OCHPCbbELEES 
ne © 


NE 7 
C) 
ZX 
G(1)0) 
WOUO 


Comme les plus attentifs ont pu le remarquer, certaines touches 
n'ont pas été attribuées. Elles vous sont réservées pour y mettre les 
instructions de votre choix, mais attention, n’oubliez pas que vous 
ne disposez que de 120 caractères au total. 


Horloge 


Avoir l’heure de nos jours est devenu une chose indispensable. 
Imaginez une vie non rythmée par le temps qui passe : plus de PV 
sur le parebrise de la Porsche, plus de patrons grognons avec un 
chronomètre à la place du cœur, plus ce fameux prétexte de 
“dragueur” de deuxième catégorie pour aborder les jeunes filles : 
“Vous avez l’heure, mademoiselle ?” (Personnellement, je préfère 
“Vous m'offrez un whisky-coca, mademoiselle ?”, c’est plus 
original et au moins c’est utile). Avouez que la chose est tentante, 
mais hélas! les grands de ce monde ne sont pas des poètes. 


Le temps est aussi un paramètre important dans les jeux vidéo; 
c'est pourquoi nous vous proposons cette horloge gérée par 


interruptions, à aiguilles et à affichage digital. Merci, Amstra- 
quartz ! 
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EN 


OO 


FANS 





LA 


PANIERS) 


ÉOORE 


EUSISL TS) 


OO) 


0060 


O0 


0100 


#UtoSs 


#OU110 


so 


20130 


20155 


£O1450 


«0199 


HUEOQU 


2QS 








LOLEO 


20235 
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2: MINUE Les HEUS 15: XPF= 100: YPFSZO0: Tô=Bo: XD=ë: YD=20 
LETST A TAH LOS, LO0: LOEMETÉA-TAXA40/ 100: LGHETA-TAKÉD 100 


DE G 
FÜR 





FF. YF:MOÜVE TA, 





CD), TAKSINCI) , Li NEXT 


EVERY 50,5 GOSUR 20100 


GOTO 20060 





ee [INCREMENTATION ee ee ana an a ae eme en moe anne 


UFIGIN XF, YF: DEG 


SEC=SEC+I:1F GEC=6) THEN SEC=0 ELSE GOTU 





MINU=MINU+ 13: SÜOUND 1,10,10,15 


IF MINU=éU THEN MINU=O ELSE IF MINU MOD %=0 THEN 
HEUZHEU+C, 13: GOT0O ZO0Ë#00 ELSE 20200 





HEU=HEU+IT:IF HEU=S:#4 THEN HEU=0 ELSE GOTO 29200 


GOTQ £o1o00 


fl 
il 


sesx EFFACEMENT DES AIGUILLES =emsseessemmense 


MOVE 0,0: DRAW CS,S5,0 


MOVE 0,0: DRAW CM, SM, © 


MOVE 0,0: DRAW CH, SH, 0 


esssssssms CALCUL DES NOUVELLES COURDONNEES ==z=222= 


osé SECDed4Si-SECX 6: CSELETXCOS {SECD) : SS=-LGTXSIN(SECD) 


20270 MINUID=450-MINUX6 : CMeLGMXCOS {MINUD) : SM=LGMXSIN (MINUD) 





200 HEUD=4S6-HEUXT Os CHELGHXCOS C(HEUD) : SH=LGHXSIN CHEUD) 





eus [RACE DES AIGUILLES eeseresseses=ssensens 





SOSIO MOVE 0,0: DRAW CS, SS, 1 

EOS20 MOVE 0,0: DRAW CM, SM, 2 

2OFFO MOVE 0, 0: DRAUW CH, SH, É 

0599 

SUAQD emesmemess AFFICHAGE DIGITAL sens ae ge a a ga a a ge ne ES 
20405 

20410 IF DFé=" " THEN DF$="s" ELSE DF$=" " 

20420 LOCATE XD, YD:FRINT INT (HELD : LOCATE XD+2, YD: FRINT MINU 
20470 LOCATE XD+6, YDs FRINT SEC: LOCATE XD+5, YD: FRINT DFS 
20440 LOCATE XD+6,YD:FRINT DF# 


20450 RETURN 


Commentaire 


L’interruption est bien utile dans ce cas car elle permet d’avoir une 
temporisation très précise, ce qui est indispensable, surtout pour 
une horloge. Nous utilisons ici l'instruction EVERY avec un appel 
toutes les secondes. Ce programme est prévu pour être inclus dans 
une de vos créations par MERGE. Il débute en 20000, ce qui vous 
laisse de quoi programmer. 
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Fonctionnement 


Les lignes 20030 à 20050 servent à l’initialisation de toutes les 
variables et de l'interruption, si vous insérez ce programme dans un 
des vôtres. Elles doivent être placées au début. 


De 20100 à 20150 se trouve l’incrémentation, en ligne 20120 les 
secondes, en 20130 les minutes avec un bip et un calcul permettant 
de faire avancer progressivement l’aiguille des heures, et en 20140 
les heures. 


L’effacement des aiguilles se fait de 20210 à 20230 par le tracé de 
lignes en couleur de fond. 


De 20260 à 20280, calcul des nouvelles coordonnées du bout des 
aiguilles puis tracé de 20310 à 20330. 


Enfin, l’affichage digital commence en 20410. On se contente juste 
d’afficher les variables HEU, MINU, SEC (en espérant que ces 
mnémoniques sont assez explicites), en faisant clignoter les 
“deux-points” toutes les secondes. 


Variables 


Pour mettre à l’heure votre horloge, modifiez les variables SEC, 
MINU, HEU. L'emplacement de l’horloge est paramétré avec les 
variables XP, YP pour les aiguilles; XD, YD pour l'affichage 
digital. 


Dernière modification possible : la taille de l’horloge à aiguilles. 
Pour cela, il faut jouer sur la variable T A qui représente le rayon du 
cercle. Les aiguilles sont mises automatiquement à la longueur par 
les calculs en fin de ligne 20030. 
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Calcul de surfaces et volumes 


Ce programme fait à votre place le travail fastidieux de calcul des 
surfaces et volumes de différentes formes géométriques. Vous 
n’aurez qu’à entrer les données de départ telles que longueur, 
largeur, rayon... 


Pour les polygones et cônes, il faudra entrer l’apothème dont nous 
vous rappellons la définition : pour un polygone régulier, c’est la 
perpendiculaire menée du centre sur un de ses côtés; pour un cône, 
c’est la droite qui joint le sommet à un point quelconque de la 
circonférence de base. Merci, Amstrapi. 
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Lo Lee die ne ae ee ea ae one one 2 a cu 20 ee 20 0e a œee ee eb te e e ooe ae de mn De D ee ee me ed ed 


DG æneesesese CALCUL DE SURFACES ET VOLUMES #emssssssssszs 





50 ee — ee ED TT SÉénsse 
39 
100 æssessence MENU eeseenmescosensemsencencensensesonnan 





105 

110 MODE 1 

150 FRINT "SURFACE D'UN RECTANGLE A" 

160 FRINT "SURFACE D'UN FARALLELOGRAMME Pan 

170 FRINT "SURFACE D'UN CERCLE — 3" 

180 FRINT "SURFACE D'UN LOSANGE — 4" 

190 FRINT "SURFACE D'UN CARRE 0! 

200 FRINT "SURFACE D'UN FOLYGONE RÉGULIER = 6" 

210 FRINT "SURFACE LATERALE D'UN CONE cr 

220 FRINT "SURFACE LATERALE D'UN CYLINDRE + 0" 

230 FRINT "SURFACE D'UN TRIANGLE 9 

240 FRINT "SURFACE D'UN TRAFEZE - 10" 
260 FRINT "SURFACE D'UNE ELLIFSE RERO 1 
26% FRINT "SURFACE D'UNE SFHEÈRE — 12" 
270 FRINT "VOLUME D'UNE SFHÈRE St" 
280 FRINT "VOLUME D'UN CURE — 14" 
290 FRINT "VOLUME D'UN FARALLELIFIFEDE ES LE 
500 FRINT "VOLUME D'UN CONE — 16" 
#10 FRINT "VOLUME D'UNE FYRAMIDE +. 7" 


550 LOCATE 1,22: INFUT'VOTRE CHOIX";CH 


60 IF CHEO OR CH*17 THEN ZS0 





280 GOTO 110 
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1200 


1210 


1220 


12350 


1300 


1710 


1720 


1570 


1400 


1410 


1420 


1470 


1500 


1520 


30 


1600 


1610 


1é20 


1630 


1700 


1710 


1720 


1: 





1890 


1810 





Fazsszsesezsz SURFACE RECTANGLE ==zszeezzzzeesezzm22 








GOSUR S5100:GOSUE 5200 


SUR=LONXLAR: GOSUR é00û 


RETURN 


Pamessessss SURFACE FARALLELOGRAMME =====2z2zzse2e2---— 


GOSUR S5:00:GOSUR 5400 


SURK=BRASXHAU: GOSUE 6000 


RETURN 








ensesesess SURFACE CERCLE ===22=2=- ===s=s=ssssessse 


GOSUE 5500 


SUR&FIXR"2Z: GOSUER 8000 


RETURN 








SURFACE LOSANGE zzzzesemememememenmemmenmeznz 


GOSUE S6éü0: GOSUR 5700 


SUR= (GDXFD) /2: GOSUK 6000 


RETURN 





GOSUE 5800 


SUR=CO"2: GOSUR 6000 


RETURN 


emseseeses SURFACE FOLYGONE =zmizzeesese mme 


GOSUR S900:GOSUER S800:GOSUR 5150 


SUR= ÉCOXNC) X (8F/2) : GOSUR 6000 


RETURN 


SURFACE CONE = nee cena 





GOSUR SS00:GOSUR 5150 


SUREFIXRAAF: GOSUR 8000 


RETURN 





SURFACE CYLINDRE =R2222RRRes2srsssesssssszz= 





GOSUR 5500: GOSUE 5400 
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1820 SUR=ZXFIYR#HAU: GOSUE 6000 
18:20 RETURN 

1900 ‘=======2== SURFACE TRIANGLE ========222-22222-mesemme 
1910 GOSUB 5200:GOSUE 5400 

1920 SUR=BAS* (HAU/2) : GOSUB 6000 

1920 RETURN 

2000 ’======2==2== SURFACE TRAFEZE ====2===22-222-2-2sm2eses 
2010 GOSUB 5250:GOSUR 5250:GOSUR 5400 

2020 SUR=(GE+PE/2) XHAU: GOSUE 6000 

2030 RETURN 

2100 ’======2=2> SURFACE ELLIPSE ===2mmcmeccecemconeemencens 
2110 GOSUB 5450:GO0SUB 5550 

2120 SUR=FIXRMINKXRMAX: GOSUB 6000 


2130 RETURN 


2210 GOSUE 5450 
2220 SUR=4XPFIXR"2Z:GOSUR 6000 


2230 RETURN 


2320 VOL=(4/35) XFIXR"Z:GOSUR 6200 


2530 RETURN 


2410 GOSUEB 5800 

2420 VOL=CO"35:GOSUR 84200 

2430 RETURN 

2300 ‘======2==== VOLUME FARALLELIFIFEDE =zzzzzzesezessessss 
2510 GOSUE S5200:GOSUB S5100:G0OSUR 5400 


2520 VOL=LARXLONXKHAU: GOSUR 64200 
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2710 


2720 


2730 


5000 


5100 


5150 


3200 


5250 


SE00 


3390 


3400 


5450 


5300 


SSSÈ 


5600 


9700 


9800 


3900 


5999 


8000 


8005 


6100 


&iio 


RETURN 





æses=seses VOLUME CONE ===22zemeeeee 





GOSUER S500:GOSUR 5400 
VOL= (FIXRT2XHAU) /5: GOSUR 6700 
RETURN 


ezese=sezsz VOLUME FPYRAMIDE ====zzm2z-zmme2zmmmzemmme— 








GOSUE 5900: GOSUB 5800:GOSUER 5400:GOSUR 5150 
VOL= ( {COXNC) X (AF/2)) X (HAU/3) : GOSUR 84200 
RETURN 

essssssess QUESTIONS ======ssesesessezzs=z2zz2z=zzzzz 
INPUT "LONGUEUR " ; LON: RETURN 

INFUT "APOTHEME" ; AF': RETURN 

INPUT LARGEUR"; LAR: RETURN 

INPUT'GRANDE RASE"; GR: RETURN 
INFUT'"BAGSE" ; HAS: RETURN 

INFUT'FETITE BASE"; FE: RETURN 

INFUT "HAUTEUR" ; HAU: RETURN 

INFUT'RAYON MINIMUM" 3; RMIN: RETURN 

INPUT RAYON"; R3 RETURN 

INFUT'RAYON MAXIMUM!" ; RMAX : RETURN 
INFUT"GRANDE DIAGONALE" :; GD: RETURN 
INFUT'FETITE DIAGONALE":; FD: RETURN 
INFUT'COTE" ; CO: RETURN 


INFUT'NOMBRRE DE COTES": NC: RETURN 


——— SURFACE = 


FRINT "LA SURFACE EST EGALE À "3; SUR 
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6129 GOSUR 62700: RETURN 


BPO0 = VOLUME == ee —— 





6210 FRINT "LE VOLUME EST EGAL À "; VOL 





6220 GOSUR 6700: RETURN 
ÉEOO ee ATTENTE CLAVIER 
6710 H$="":WHILE H$="": H#$=INEEYS: WEND 


62320 RETURN 


Fonctionnement du programme 


Le menu proposant les différentes activités est affiché par les lignes 
150 à 310. 


— Lignes 350 à 370: prise de la commande et envoi vers le calcul 
désiré. 


— 1100 à 2730: sous-programmes et algorithmes de calcul des 
surfaces et des volumes. 


— 5000 à 5900: questions sur les données de départ (en 
sous-programme). 


— 6000 à 6320: affichage du résultat. 
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Codage pirate 


Ce programme nous vient directement des pirates de gros systèmes 
informatiques. Lors du piratage à plusieurs, les “crakers” ont 
besoin de communiquer entre eux, mais s'ils s’envoient des 
messages en clair, l’analyste programmeur responsable de la 
maintenance du système les comprend. C’est pourquoi les pirates 
ont créé ce codage très difficile à déchiffrer sans l’utilisation d’une 


clef. Merci, Dartsma. 


121 





20 £ezssesezse CODAGE FIRATE sezesesemesesesepesmenmasemmæes 
F0 = —— ——— ———— ee 
40 MODE 2 

30 INFUT'"'CODAGE —:1 DECODAGE -—-:2",A 


60 IF A=1 THEN 100 ELGSE IF A=2 THEN 200 ELGSE 50 





120 INFUT'"'FHRASE À CODER";FHS# 
150 INFUT'"'CLEF";CLS 

140 F=1: FOR 1=1 TO LEN(FHS) 

1350 AS=MIDS (FH$S,1,1):FRINT À$, 
160 EH$=MIDS$(CL#S,F,1):FRINT E$, 
170 PeP+l:IF FLENCCLS) THEN F=i 
180 A=ASC(AE) : H=ASC(EH) 

190 C=A+B:CS=CHRS$ (C-64) 

200 FRINT C$:COD#=COD$+C# 

210 NEXT 


220 FRINT COD$:END 











320 INFUT'FHRASE À DECODER":FHS$ 
330 INFUT'"'CLEF"; CLS 

340 F=il:FOR 1=1 TO LEN(FH$) 

SO AS=MIDS(FH$,I,1):FRINT AÀ$, 
360 H$=MIDS(CLS,F.1):FRINT E$, 


370 F=P+1:1IF F:LENÇ(CLS) THEN F=1 
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380 A=ASC (AS) : H=ASC(ESH) 
390 C=A-B:CS=CHRS (C+64) 
400 FRINT C$:COD$=COD$+CS 
410 NEXT 


420 FRINT COD$#:END 


Méthode de codage 


Le codage se fait par addition des codes ASCII de la phrase à coder 
et de ceux de la clef auxquels on enlève 64. Prenons un exemple 
pour plus de clarté : 


phrase à coder 


| V E T A 
73 86 69 32 65 


phrase codée 
LI G 5 H h T VY 


94 93 71 53 72 104 93 84 86 
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Fonctionnement du programme 


Le programme vous propose le codage ou le décodage. Pour le 
codage, entrez la phrase ainsi que la clef. Vous verrez le codage 
s'effectuer pas à pas, puis la phrase entièrement codée. Pour le 
décodage, effectuez les mêmes opérations en entrant correctement 
la phrase codée. 
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Représentation 
en histogramme 





La représentation de pourcentages en histogramme donne une 
vision claire de valeurs qui, exprimées numériquement, paraissent 
abstraites. Nous avons pris, pour illustrer ce programme, l’exemple 
de la société STAR-SOFT, spécialisée dans la réalisation de 
prologiciels ! 


Cette société, bien connue dans le monde informatique, a établi 
une de ses agence à Paris. Son directeur, M. Dubug, très grand 
gestionnaire, est noyé sous les rapports comptables qui tombent 
chaque matin sur son bureau. Quand un jour, une idée de génie 
illumine son cerveau embrumé: la représentation de tous ces 
chiffres barbares sous forme d’histogrammes. Il nous téléphone 
pour nous demander de réaliser ce produit, ce que nous acceptons 
immédiatement. Depuis, M. Dubug vit heureux avec ce pro- 
gramme et a eu beaucoup de petits histogrammes. Merci, 
Amstradgramme. 
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MODE 1 


INFO 1,1S:INE Z,18:INF O,O:INE 3,6 


eesmesesess INITIALISATION ==seesmmesemenmemencemœecenme 


NE=é: DIM NOMS (NE) , FC (NE) 


TA=200:XF=90:YF=90: 
TA=INT(TA/8) X8: XF=INT(IXF/8) X8: YF=INT(XF/6) *x6 


NOMS$ (1)="1980": NOMS (2) ="1981":NOM& (5) ="1982": 
NOM& (4)="19825": NOMS (5) ="1984": NOM (8) ="1985" 





FC(1)=34:FC C2) =256:FC(5S)=12:FPC(4)=77:FC(5)=81:FC(6) <29 


LEG$="C.A. Ste STAR-SOFT" 






TRACE DU CADRE #szxx 





F=TA/100:ES=INT(SOXF/8) Xx9 


MOVE XF-2OXF, YP+4TA4+ZOXP: DRAW XF-2OXF, YF-1LOXP, 1: 
DRAW XF+NEXSOKF, YF LOXF 


FOR I=YF TO YF+TA STEF 10XF: 
MOVE XF-Z20XF-2,I:DRAW XF-20XP+2,I:NEXT I 


LOCATE 10,2:FRINT LEGS; 





FOR LOOF=1 TO NE 

X=XE+ (LOOP-1) KES: Y= VE: HP XFC (LOOF) 

FOR Y=Y TO Y+H 

MOVE X, Y:DRAU X4+2OXF,Y, 2: DRAW X4I0XFP, Y4S4F, 1 


NEXT Y 


310 FÜR keX TO X4+20XF: MOVE E,Y+1:DRAW E+1O0XF, Cr+1) 4S4F 7 
NEXT KE 


320 LOCATE X/18,289-(YF/16) 2: FRINT NOM& (LOOF) : 


330 NEXT LOOF 


Fonctionnement du programme 


Ce programme utilise le mode 1. La taille de l’histogramme est 
paramétrée avec la variable TA (en ligne 120). NB est le nombre 
d’histogrammes. NOMS$() contient la légende et PC() le pourcen- 
tage de chaque histogramme. LEGS est le titre de la représenta- 
tion. 


Les lignes 210 à 240 se chargent de tracer les repères d’abscisse et 
d’ordonnée. Enfin, les histogrammes sont affichés par les lignes 260 
à 310. 
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DANS LA MEME COLLECTION 





= Guide pratique de l'EAO 


“Intelligence artificielle 
et systèmes experts 





«Parole et micros 





= Choisir un logiciel 





«Le vidéodisque 


= Guide pratique du vidéotex 
et du Minitel 





a NANORESEAU, le nouvel auxiliaire 
pédagogique 


«BASIC, sachez le cuisiner 





LOGO, des alles pour l'esprit 





“Images et signes (+ 2 cassettes) 





“LOGO sans peine (+ 2 cassettes) 
«BASIC sans peine (+ 2 cassettes) 


«Faites vos jeux en Assembleur 
sur TO7-107/70 (+ 2 cassettes) 


“Le tour de l'Amstrad 





« Programmer en Assembleur 
sur Commodore 64 





= Programmer en langage machine 
sur Oric-Atmos et Oric 1 


= Premiers pas avec l'Atari 
= Premiers pas avec le ZX-Spectrum 
«Plus loin avec le ZX-Spectrum 











“initiation au BASIC TO7-T07/70 


«Le BASIC DOS du TO7-T07/70 
et du MOS5 


“Initiation au BASIC 128 du TO7/70 


#BASIC TO7-T07/70, 
manuel de référence 


“Initiation à LOGO 

#L1OGO, manuel de référence 
“Initiation au FORTH 

= FORTH, manuel de référence 


« Manuel de l'Assembleur 6809 
du TO7-T07/70 


« Manuel de l'Assembleur 6809 
du MO5 


«La face cachée du T07-T07/70 
«La face cachée du MOS5 
« Manuel technique du TO07-107/70 









































«Musique sur Commodore 64 





« Manuel technique du MO5 





= Guide pratique de l'Apple//c 





= Programmes pour MSX 





= Guide pratique 
de l'ordinateur personnel IBM 





“Au cœur des micro-ordinateurs 
MO5-TO7-T07/70 


= Un ordinateur à la maison 
= Un ordinateur en fête 











« Guide pratique de l'Oric-Atmos 








« Un ordinateur et des jeux 
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